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IDENTIFICATION 

PRODUCT CODE: AC-8704C-MC 

PRODUCT NAME: CZDUQCO DUV11 OFLNE LGC TSTS 
PRODUCT DATE: AUGUST , 1980 

MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT (C) 1977,1980 BY DIGITAL EQUIPMENT CORPORATION 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIAB 
Ae] eal THAT IS NOT SUPPLIED BY DIGITAL OR IT 


ILTY OF SOFTWARE 
S AFFILIATED 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


® 


-REM * 


SEQ 0001 


capuneco 


CZbU a3. m1 


2.2 


4. 
4.1 
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GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S. THIS M 
16 DEVICES CAN BE SEQUENTIALLY EXERCISED. ! 
S 


THE DUV11 OFFLINE LOGIC TESTS VERIFY THAT ALL REGISTERS EXIST 
,AND ALL RESPECTIVE BITS CAN BE MASTER CLEARED, READ, 

WRITTEN AND/OR READ/WRITTEN 

REQUIREMENTS 

PDF-11/03 COMPUTER (LSI) 

DUV11 SYNCRONOUS/ISOCRONOUS OPTION 

ONE CONSOLE TELETYPE OR EQUIVALENT 


STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


LOADING PROCEDURE : 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 


STARTING ADDRESS 
FOR ABSOLUTE LOADER 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES By INTERNAL TO THE CPU AT ADDRESS 
176. THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT-11, THERE I 
CALLED odttea’ IN ORDER TO B 

a CONNECTOR, ONE BIT PASSE 

T 0 IN SUSUR “REFLECTS THIS 

PRESENT A 1 = CONNECTOR NOT 


USER SWITCH REGISTER 


SA 

E FL 

S ae,” 
STATUS = CONNECTOR 
AVAI 


T 
V ine.” , 





«REM 


-REM 


tt a2 oe OF THE 


SEQ 0002 
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THE USER Teg THE CONTENTS OF THIS LOCATION 


WHEN BUILDING THE E TABLE, BY ANSWERING THE 
PROMPT ‘SWITCH 2"'. 


4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


swo0=1 
4.1.3 TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
onic (ONLY IN SINGLE. DEVICE TESTS) 


4.1.4 TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 


SW14=1 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 
NOTE2: WITHOUT SWO1=1 ‘LOCK ON TEST’’ WILL DEFAULT TO TEST 1 
4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RETARTING ADDRESS FOR ALL TESTS IS 000200 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
THE STARTING ADDRESS TO LOCK ON TEST IS 000200 
4.3 PROGRAM AND/OR OPERATOR ACTION 
INITIAL PROGRAM START 
4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4.3.1.3 TYPE 2006. 


4.3.1.4 PROGRAM WILL START. 


= 
. 
Ww 
. 
= 


4.3.1.5 THE PROGRAM WILL TYPE “'DUV11 CZDUQ-C TAPE A'’ (ONCE ONLY) 
4.3.1.6 THE PROGRAM WILL TYPE "'R'' TO INDICATE THAT IT IS ABOUT 
TO START TESTING ,AND THEN TESTING WILL BEGIN 
4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4.3.2.1 THE PROGRAM WILL TYPE “'R" AND WILL COMMENCE TESTING 
4.3.3 PROGRAM RESTART WITH SWOO=1 


-REM 


-REM 


SEQ 0003 
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4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 2006. 
4.3.3.3 PROGRAM WILL START. 


4.3.3.4 THE PROGRAM WILL TYPE ‘' 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


,4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST 9 334 CONTROL 


REGISTER ADDRESS OF THE DUV11 TO BE T 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED ,THE tr WILL TYPE *'?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE ‘'VECTOR ADDRESS-"' AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED i PROGRAM WILL TYPE ‘'?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 THE PROGRAM WILL TYPE ‘‘ARE YOU RUNNING MULTIPLE DEVICES ?°' 
(Y OR N)-"" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE ‘'?"’ 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A ‘'NO'’ ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A ‘‘VES'' ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


4.3.3.10 THE PROGRAM WILL TYPE ‘‘LAST DEVICE:RECEIVER CONTROL 
REGISTER ADDRESS~"’ AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ''?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS 


4.3.3.11.1 "F AN “‘OUT OF RANGE'’ ADDRESS Wa TYPED 
1E. MORE THAN 16 (10) DEVICES AWAY (UPWARDS). THE 
PROGRAM WILL TYPE "OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-"' 


SEQ 0004 
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AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.11.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"’ 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS oe THAN 1ST DEVICE ADDRESS IS TYPED........... 
«++SCHO OL ) OUT seasaeaval HERE Is NO PROTECTION FOR THIS. 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


4.3.3.12 THE PROGRAM WILL TYPE '‘# OF SYNC CHARS 
SELECTED (1 OR 2)-"" AND WAIT FOR AN INPUT FROM THE TELETYPE 
A sow I oa TO MANUAL FOR PROPER SWITCH SETTINGS OF 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER ‘"1"' OR ‘'2'’ FOLLOWED 
4 Bagel yy RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"' 
AND WILL REPEAT THE MESSAGE OF 4.3.3.12 


4.3.3.14 THE PROGRAM WILL TYPE ‘' IS SEC XMI1 SWITCH E55-2 ON? (Y OR N)-"' 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"’ 
AND WILL REPEAT THE MESSAGE OF 4.3.5.14 


4.3.3.16 THE PROGRAM WILL TYPE "IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-"' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE °'?"' 
AND WILL REPEAT THE MESSAGE OF 4.3.5.16 


. 4.3.5.18 THE PROGRAM WILL TYPE ‘IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y OR N)-"' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED: 


SEQ 0005 


7DuUQ-CO 
CZDUQ3.M11 


4.3.4 


4.3.5 
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BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"' 
AND WILL REPEAT THE MESSAGE OF 4.3.5.18 


4.3.3.20 THE PROGRAM WILL TYPE vena YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND ......00 YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? Y YOR N)="" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ''?"’ 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


4.3.3.22 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1=1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 

eeelT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 

IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED, ,LOAD 000200, 

AND SELECT SWOO=1 AND ANSWER ''NO'' TO THE MULTIPLE DEVICE QUESTION 
SEE 4.3.3 

4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 

4.3.4.2 TYPE 2006. 

4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL TYPE ‘‘TEST PC-"' AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
»SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT IS IN THE MIDDLE OF A TEST 


PROGRAM RESTART WITH SW14 =1 

NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 

4.3.5.1 SET SWi4=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 2006. 


SEQ 0006 


r 
| 
'C 
Cc 
| 
| 
| 
| 
} 
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6.1.1 


6.1.2 
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4.3.5.5 PROGRAM WILL START. 


4.3.5.4 THE PROGRAM WILL TYPE ‘LOCK ON SELECTED TEST ? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE ‘'R'' TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


4.3.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL AC” AS FOLLOWS... 
THE PROGRAM WILL TYPE ‘'R'' TO INDICATE THAT IT HAS STARTED 
TESTING AT ine" 1 AND WILL REMAIN IN TEST 1 UNTIL Sahin ee 
OR IF ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM 
WILL FREEZE “ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 
I 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 
OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
$w15 HALT ON ERROR 


Wi5 =1 

Sw14 =1 LOOP ON CURRENT TEST 

$wi3 =1 INHIBIT ERROR TYPEOUT 

SWwi1 =1 INHIBIT ITERATIONS 

$wi0 =1 ESCAPE TO NEXT TEST ON ERROR 

SwO9 =1 LOOP ON ERROR 

sw01 =1 RESTART PROGRAM AT SELECTED TEST 

sw00 =1 sFep 3} VECTOR AND CONTROL attut ADRESSES 


BPARAMETERS AFTER A_PROGRAM RESTA 
TO INHIBIT ‘’END OF PASS” TYPEOUT = TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LSI ALL HALT ERRORS RETURN CONTROL TO 0.D.T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = ERROR 
WHERE PC +2 1S. THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE "‘HLT’' IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC en REGISTER coere PC 

REGISTER EXPECTED ACTUAL 

A ARHXK vvYYYY 222722 

WHERE 1XXXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 


SEQ 0007 


if 
czD 
iC 

| 

| 


Ua-C0 
70UQ3.M11 


6.1.3 


6.1.4 


6.1.5 


6.2 
6.2.1 


6.2.2 


6.2.3 


6.2.4 


6.3 
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WHERE 222222 IS THE ACTUAL CONTENTS OF THAT REGISTER 


PC +2 = RECEIVER ERROR PC 
REGISTER EXPECTED ACTUAL 
UXXKAX YYYYYY 122722 


WHERE 1XXXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 

WHERE 222222 IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 

etd MSMR ERE acry 

TAXXRK YYVYYY 222222 

WHERE 1XXXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCST) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 IS THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


SwWwi5 =0 
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE ESTING . 


SW15 =1 

IF THE PROGRAM IS RUN WITH SW15 =1 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED ,PRESS “THE PROCESSOR 
CONSOLE *‘CONTINUE SWITCH’’ 


NOTE: THE PC + 2 OF THE "'HLT’’ WILL BE DISPLAYED IN THE DATA LIGHTS 


tp INTERRUPTS 

IF AN INTERRUPT OCCURS TO A VECTOR eae de NOT SELECTED 
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL a IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE "PROGRA 

HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THe. — 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 T 

RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


END OF PASS ROUTINE 
wt the ta MENTIONED HERE FOR CONVENIENCE 


SEQ 0008 


2es See eae 
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IXXXXX = DEVICE 
WHERE Y IS THE TAPE LOADED 
WHERE 1XXXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT - TURN TELETYPE OFF 
7. RESTRICTIONS 
7.1 MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 
NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE '‘'ZERO: ADD #10 BASE IV ;NEXT BLOCK 
(VECTORS)’' TO ‘ZERO: ADD #0 ,BASEIV"’; 
THEREBY THE VECTOR ADDRESSES WILL NOT BE. 
UPDATED AFTER EACH PASS. 
7.2 DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 
WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT 0 FOR 
DEVICE 0 ,BIT 15 FOR DEVICE 15 
TO DISQUALIFY DEVICES: 


7.2.1 IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


7.2.2 IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 


OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 
AND DEPOSIT 0 WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART...TYPE 200G. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


V.2.202 socccee « T SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 
ANSWER THE “aUESTION 21ST DEVICE : ETC.....-..6.. 
weeeTHE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.3 4 ALL DEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOQUT AN ERROR MESSAGE.......TYPE 2006. 


7.3 CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


7.3.1 TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE, 
LOCATION "HOLD:’* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY "HOLD:*' =20 IS SUFFICIENT TIME ON AN 11/035 MACHINE. 
BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


7.4 TO USE THE 'XOR'' TESTER ,THE BRANCH AROUND THE ‘‘XOR"’ 


SEQ 0009 


‘mee 


CzDuUa-CO 
CZ7DUQ3.m11 
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CODE MUST BE PATCHED 70 A ‘'NOP’'. (SEE LISTINGS FOR DETAILS) 


DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010 


VECTOR ADDRESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 

IS SEC XMIT SWITCH E55-2 ON?- YES SEXMIT: 377 

IS SEC REC SWITCH E55-3 ON?- YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55-1 ON? YES OPTCLR: 377 


DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 
CONNECTOR ON (H315)- YES JMRBY: 377 


PROGRAM DESCRIPTION 


«REM 
pigs B aor ‘Wwebem THE OFFLINE LOGIC BIT BANGING 
SEE LISTING FOR DETAILS 
® 
-REM 


FLOW CHARTS: RECEIVER FLOW, TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
CHANGE HISTORY 


NOTE: HISTORY BEGINS WITH REV. CO 
REV. CO: 1) ALLOW OPERATOR TO SPECIFY ADDRESS > 170000 
2) INCREASE DELAY VALUE ‘'HOLD'’ TO COMPENSATE 
FOR 11/23 EXECUTION TIME (FROM 3777 TO 6200) 


LISTINGS 


SEQ 0010 


| 
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539 
540 
541 
54 
54 
544 
545 
546 
547 
ars 
350 .SBTTL APT COMMUNICATIONS ROUTINE 
552 RARE ARARAEAAEAARAEAEREEEAEAEAAEAAEAAAEAAAAAAAARAARAARAAAARAAAAAERAAAEAEE 
553 000000 112767 000001 000236 $ATY1: MOVB  #1,$FFLG :;TO REPORT FATAL ERROR 
554 000006 112767 000001 000226 SATY3: MOVB #1.$MFLG ::TO TYPE A MESSAGE 
555 000014 000403 BR SATYC 
556 000016 112767 000001 000220 SATY4: MOVB #1,SFFLG :;TO ONLY REPORT FATAL ERROR 
557 000024 $ATYC: 
558 000024 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
559 000026 010146 MOV R1,-(SP) *:PUSH R1 ON STACK 
560 000030 105767 000206 TSTB  $MFLG i$ SHOULD TYPE A MESSAGE? 
561 000034 001450 BEQ 5$ [IF NOT: BR 
562 000036 122767 000001 001502 CMPB  —s- #APTENV,, SENV ; ;OPERATING UNDER APT? 
563 000044 001031 BNE F NOT: BR 
564 000046 132767 000100 001473 BITB § #APTSPOOL, SENVM i} SHOULD SPOOL MESSAGES? 
565 000054 001425 BEQ SIF NOT: BR 
566 000056 017600 000004 MOV a4 (SP) ,RO GET MESSAGE ADDR. 
567 000062 062766 000002 000004 ADD #2,4(SP) >;BUMP RETURN ADDR 
568 000070 005767 001432 1$: TST SMSGTYPE :;SEE IF DONE W/ LAST XMISSION? 
569 000074 001375 BNE 1$ | $EIB NOT: WAIT 
570 000076 010067 001440 MOV RO, SMSGAD ::PUT ADDR it MAILBOX 
571 000102 105720 2$: TSTB. ss (RO) + ::FIND END OF MESSAGE 
572 000104 001376 BNE 2$ 
573 000106 166700 001430 SUB SMSGAD RO :;SUB START OF MESSAGE 
574 000112 006200 ASR RO [:GET MESSAGE LNGTH IN WORDS 
575 000114 010067 001424 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 
378 900120 012767 000004 001400 HOV #4. SMSGTYPE ::TELL APT TO TAKE MSG. 
578 tet 017667 000004 000016 38: MOV a4 (SP) ,4$ ;3PUT MSG ADDR IN JSR LINKAGE 
579 000136 062766 000002 000004 ADD #2,4(SP) BUMP RETURN ADDRESS 
580 000144 016746 177626 MOV 177778.-(SP)  :;PUSH 199776 ON STACK 
581 000150 004767 012666 JSR PC, $TYPE ::CALL TYPE MACRO 
382 000154 4$: “WORD 0 
a 900156 5$: 
584 156 105767 000062 10$:  TSTB $FFLG ; SHOULD REPORT FATAL ERROR? 
585 90016¢ 001416 BEQ 12$ NOT: BR 
5 164 005767 001356 TST SENV : :RUNNING UNDER APT? 
58 170 001413 BEQ 12$ NOT: BR 
588 172 005767 001330 11$: TST SMSGTYPE HIFINISHED LAST MESSAGE? 
589 176 1375 BNE NOT: WAIT 
390 9002 17667 000004 001322 MOV a4(SP),SFATAL ::GET ERROR # 
91 306 : 66 00002 000004 ADD #2,4(SP) BUMP RETURN ADDR. 
59 900 14 26 1306 INC SMSGTYPE >; TELL abt TO TAKE ERROR 
59 220 105067 000020 128:  CLRB  $FFLG *:CLEAR FATAL FLAG 
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DUQ4 .m11 09-SEP-80 09:28 APT COMMUNICATIONS ROUTINE SEQ 0012 | 
000224 105067 000013 CLRB SLFLG eeCb LEAR LOG FLAG | 
000 19208! 000006 CLRB SMFLG obs MESSAGE FLAG 

12601 MOV (SP)+,R1 POP STACK INTO R1 
1 $30 MOV (SP)+,RO ; POP — INTO RO 
40 68 RTS PC ;RETURN 
eg 00 SMFLG: .BYTE 0 :MESSG. FLAG 
00024 000 0 G 
000244 0 
000001 APTENV=001 
000100 APTSPOOL=100 
000040 APTCSUP=040 
000001 STN=1 
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$LFLG: .BYTE 3;L0G FLA 

000 SFFLG, BYTE 7 7FATAL FLAG 

000246 EVEN 

000200 APTSIZE= 350 
CZDU04 .M11 09-SEP-80 09:28 APT COMMUNICATIONS ROUTINE 
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-ENABLE ABS 


;CZDUQ-CO DUVI1 TAPE A 
:COPYRIGHT 1977, 980, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


1 TAP 
7,1 
i ype 0 Ser ROCEDURE 
;PROGRAM WILL TYPE "'CZDUQ=CO DUV11 TAPE A 
;PROGRAM WILL TYPE ‘'R' TO INDICATE THAT TESTING HAS STARTED 
AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE A’ 
AND THEN RESUME TESTING 
-SBTTL BASIC DEFINITIONS 


s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *## 
001100 STACK= 1100 


— 





-EQUIV EMT,ERROR s BASIC DEFINITION OF ERROR CALL 
-EQUIV !0T,SCOPE S:BASIC DEFINITION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 
000011 HT= 11 3;CODE FOR HORIZONTAL TAB 
000012 LF= 12 : + CODE FOR LINE FEED 
000015 CR= 15 :CODE FOR CARRIAGE RETU 
000200 CRLF= 200 :CODE FOR CARRIAGE Re Tense eee FEED 
177776 PS= 177776 PROCESSOR STATUS WORD 
.EQUIV PS,PSW 
177774 STKLMT= 177774 s;STACK LIMIT REGISTER 
177772 = PIRQ= 177772 >:PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 S:HARDWARE SWITCH REGISTER 
177570 , DDISP= 177570 : HARDWARE DISPLAY REGISTER 
¢. ' ’ 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
000 RO= 10 GENERAL REGISTER 
000001 Riz %1 ‘GENERAL REGISTER 
000002. R2= 42 >:GENERAL REGISTER 
000003” R3= 13 GENERAL REGISTER 
000004 R4= 14 GENERAL REGISTER 
000005 RS= 15 *:GENERAL REGISTER 
000006 R6= 16 ?:GENERAL REGISTER 
€00007 R7= 17 +:GENERAL REGISTER 
0000 SP= 16 ::STACK POINTER 
000007 PC= 17 :: PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
000000 PRO= 0 s;PRIORITY LEVEL 0 
000040 PRi=z 40 ::PRIORITY LEVEL 1 
000100 PR2= 100 ?:PRIORITY LEVEL : | 
000140 PR3=  —s-:140 >:PRIORITY LEVEL 
000200 PR4= —«- 200 = PRIORITY LEVEL 4 
000240 PRS= 240 ::PRIORITY LEVEL 5 
679 000300 PR6= 300 *: PRIORITY LEVEL 6 
680 000340 PR7= 340 >: PRIORITY LEVEL 7 | 
} 


682 ;@ PR he REGISTER’’ SWITCH DEFINITIONS 
68 $wi5= 100000 
Swi4= 40000 


BE 
a 


SS SSS cl 










CZ0UQ-C0 
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685 020000 

686 010000 

687 004000 

688 002000 

689 001000 

690 000400 

691 000200 

692 000100 

693 000040 

694 000020 

695 000010 

696 000004 

697 000002 

698 000001 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 100900 

712 040000 

713 020000 

714 010000 

715 004000 

716 002000 

717 001000 

718 000400 

719 000200 

720 000100 

721 000040 

722 000020 

723 000010 

724 000004 

725 000002 
000001 


000004 
000010 


MACY11 30A(1052) 


vw ote 10: 
20-AUG-80 09:19 BA 


SIC DE 


. 1,SW 

-EQUIV SW00,SWO 

;*DATA BIT DEFINITIONS B1T00 TO BIT15) 
= 100090 


BIT15= 100 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

B1T10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

B1T06= 100 

BITO5= 40 

BITO4= 20 

BITO03= 10 

BITO2= 4 

BITOI= 2 

BIT00= 1 

-EQUIV BITO9,BIT9 
EQUIV B1T08,B1T8 
-EQUIV B1T07,B117 
-EQUIV B1T06,B116 
-EQUIV. B1T05,B1T5 
-EQUIV B1T04,B1T4 
-EQUIV B1T03,B1T3 
-EQUIV B1T02,B1T2 
-EQUIV 617T01,B1T1 


-EQUIV 61T00,B1T0 


jsBASIC “CPU' TRAP VECTOR ADDRESSES 
ERRVEC= 4 sTIME OUT AND OTHER ERRORS 
RESvECe 10 STRESERVED AND ILLEGAL INSTRUCTIONS 


SEQ 0014 


a eS ed 








C 2 
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741 000014 TBITVEC=14 4 BIT 
742 000014 TRIVEC= 14 ACE TRA 
743 000014 BPTVEC= 14 BREAKPOINT TRAP (BPT 
744 000020 LOTVEC= 20 sIN PUT/OUTPUT TRAP (lor) **SCOPE** 
745 000024 PWRVEC= $3 OWER FAIL 
746 000030 EMTVEC= 30 :TERULATOR TRAP (EMT) **ERROR** 
747 000034 TRAPVEC=34 “TRAP'’ TRAP 
748 000060 TKVEC= 60 :3TTY KEYBOARD yes roe 


TPVEC= 64 7; TTY PRINTER 


VECT 
000240 PIRQVEC=240 ;; PROGRAM INTERRUPT RREQUEST VECTOR 
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3) STANDARD INTERRUPT VECTORS 
753 
754 000174 62174 
755 000174 000000 DISPREG:0 
756 000176 000000 SWREG:0 
757 000200 -=200 
os 000200 000167 001746 JMP . START :G0 TO START OF PROGRAM 
760 
761 
762 001100 .=1100 
763 001100 000000 ~WORD 0 
re 001102 177570 LIGHTS:177570 
766 
767 
268 :PROGRAM CONTROL PARAMETERS 
770 001104 000000 RETURN: 0 
771 001106 000000 NEXT: 0 ; ADDRESS OF NEXT TEST TO BE EXECUTED 
772 001110 000000 LOCK 0 sADDRESS FOR LOCK On CURRENT DATA 
773 001112 000000 PASCNT: 0 ; ADDRESS. CONTAINING PASS COU 
774 001114 000000 ERRCNT: 0 R COUNT 
ote 001116 000000 SAVSP: 0 sSTACK POINTER STORAGE 
777 ;PROGRAM VARIABLES 
001120 000020 HOLD 20 ; TEMPORARY STORAGE=DELAY TIME FOR CABLES 
001122 000000 SHIFT: 0 ; TEMPORARY STORAGE= # OF SHIFTS PER CHAR 
001124 00 COUNT: 0 TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
001126 000000 SAVPC: 0 PROGRAM COUNTER STORAGE 
001130 000000 HLDO 0 
001132 000000 HLD1 0 
001134 000000 HLD2 0 
001136 000000 HLD3 0 
001140 000000 HLD4 0 
001142 000000 HLD5 0 
001144 000000 HLD6 0 





| E 2 
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CZDUQC.M11 =. 20-AUG-80 09:1 BASIC DEFINITIONS SEQ 0017 
793 ;PROGRAM_ CONVERSATIONAL PARAMETER 
792 001146 = 377 SYNCNO: .BYTE 377  ;:# OF SYNC CHARS REQ'D FOR SYNC'ZATION 
793 001147 = 377 SEXMIT: .BYTE 377 — 3SEC XMIT JUMPER ""IN’ 
7% 001150 377 SEREC: .BYTE 377 SEC REC JUMPER "IN 
795 001151 = 377 OPTCLR: BYTE $77 OPTIONAL. JUMPER CLR "IN 
7% 001152 000 MULTD: ‘BYTE 0 iNO MULTIPLE DEVICE FLAG eee 
797 001153 = «377 JMRBY: :BYTE 377 EXTERNAL MODEM BYPASS JUMPER ‘‘IN 
198 .EVEN 
800 :PROGRAM MULTIPLE DEVICE PARAMETERS 
801 001154 000000 BASEADD: 0 PROG CONTROLLED TST DEVICE ADDR 
802 001156 000000 KEEPADD: 0 :SAVED 1ST DEVICE ADDR 
803 001160 000000 LASTADD: 0 SLAST DEVICE RXCSR ADDR 
804 001162 000000 BASEIV 0 ;PROG CONTROLLED 1V 
805 001164 000000 KEEPIV: 0 ;SAVED INTR VECTOR 
806 001166 000000 ACTREG: 0 SACTIVE REGISTER ,.,MODIFY THIS 
807 :LOCATION TO DISQUALIFY OR QUALIFY 
808 EVICES (1= RUN, 4 .0= DON’T RUN) 
809 001170 000000 ROTADD: 0 TATING POINTER FOR ACTREG. .POIN 
810 10 DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
B12 ;PROGRAM CONTROL FLAGS 
814 001172 000 INIFLG: .BYTE 0 PROGRAM INITIALIZATION FLAG 
815 001173 000 STFLG: .BYTE 0 ;TEST START FLAG 
816 001174 000 LOKFLG: :BYTE 0 LOCK ON CURRENT TEST FLAG 
817 001176 “EVEN 
818 001400 :=1400 
819 
820 


a —_ 
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CZDUQC.M11  20=AUG-80 0 BASIC DEFINITIONS SEQ 0018 
821 
822 
823 
BSe y INSTRUCTION DEFINITIONS 
826 005746 PUSH1SP=5746  ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
827 005726 POP1SP=5726 ‘INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
828 010046 PUSHRO=10046 :SAVE RO ON STACK =MOV RO,-(SP) 
829 012600 POPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+,RO 
830 024646 PUSH2SP=24646  :DECREMENT STACK TWICE =CMP -(SP),-(SP) 
831 022626 POP2SP=22626 : INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
832 sREGISTER DEFINITIONS 





100000 
0400 


gTXCSR BIT DEF INET IONS 


sRXCSR BIT DEFINITIONS 


psc=81115 DATA SET CHANGE 
RING=BIT14 RING 
CTS=BIT13 'CLR TO SEND 
CARDET=B1T12 ‘CARRIER DETECT 
RECACT=B1T11 *REC ACTIVE 
SRD=B1T10 :SEC REC DATA 
DSR=BIT9 ‘DATA SET RDY 
STPSYN=BIT8 =STRIP SYNC 
RXDONE=B117 :REC DONE 
RINTEN=B1 16 “REC INTR ENABLE 
DSINTE=B1T5 :DSC INTR ENABLE 
SYNSCH=BIT4 :SYNC SEARCH 
STD=BIT3 >SEC XMIT DATA 
RTS=BIT2 :REQ TO SEND 
DTR=B1T1 [DATA TERM RDY 
VOID=B1TO 

-RXDBUF BIT DEFINITIONS 
RXERR=B1T15 sREC ERROR 
OVRRUN=BIT14 OVERRUN 
FRMERR=B1T13 : ERAME ERROR 
PARER=BIT12 ARITY ERROR 

ARCSR BIT DEFINITIONS 

PAREN=B1*9 :PARITY ENABLE 
EVPAR=B1T8 “EVEN PARITY SENSE 


‘PARCSR WRD DEFINITIONS 


SYNINT=30000 :SYNC EXTERNAL MODE 
SYNEXT=20000 SYNC INTERNAL MODE 
1SYMOD=0 MODE 

FIVE=0 “WORD LENGTH 5 BITS 
$1X=2000 ‘WORD LENGTH 6 BITS 
SEVEN=4000 ‘WORD LENGTH 7 BITS 
EIGHT=6000 “WORD LENGTH 8 BITS 
NOPAR= [NO PARITY 
ODDPAR=1000 £000 PARITY 
EVEPAR=1400 VEN PARITY 


DNA=BIT1 ;DATA NOT AVAILABLE 
MTDATA=B1T14 ;MAINT DATA 

CLK=B1T1 3CLK 

BITW=B1T10 ;BIT WINDOW 
MRESET=B1T8 ;MASTER RESET 
TXDONE=B117 ;XMIT DONE 
TXINTE=B1T6 ;XMIT INTR ENABLE 
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000040 


000001 
000000 


014000 
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G 2 
BASIC DEFINITIONS 


DNAINTE=B1T5 ;ONA INTR ENAB 
; SEND 


SEND=BIT4 } 
HDXEN=BIT3 i MDX/FDX 
BREAK=BITO BREAK 

sTXCSR WRD DEF INET IONS 
USER=0 sUSER MODE 
MINT=4000 MAINT Int MODE 
MEXT=10000 “MAINT EXT 


MODE 
SYSTST=14000 ;SYSTEM TEST MODE 


SEQ 0019 
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t7puac. M11 20-AUG-80 09: COMMON TAGS SEQ 0020 
Hy] .SBTTL COMMON TAGS 
BBS FRRRRAAAAAAEAAAAAAREEREREEAA AAT AREAAAREEREAAAAAAAREKAKEHERARAAEEEE 
889 CSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
24 :*USED IN THE PROGRAM. 
892 001400 2, 
893 001400 SCMTAG: :;START OF COMMON TAGS 
894 001400 000000 «WORD OQ 
895 001402 000 STSTNM: .BYTE 0 :;CONTAINS THE TEST NUMBER 
896 001403 000 SERFLG: .BYTE 0 3;CONTAINS ERROR FLAG 
897 001404 0 SICNT: .WORD 0 ;;CONTAINS SUBTEST ITERATION COUNT 
898 001406 000000 SLPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
899 001410 000000 SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
900 001412 SERTTL: .WORD 0 :;CONTAINS TOTAL ERRORS DETECTED 
901 001414 000 SITEMB: .BYTE 0 :;CONTAINS ITEM CONTROL BYTE 
902 001415 SERMAX: .BYTE 1 s;CONTAINS MAX. ERRORS PER TEST 
903 001416 000000 SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
904 001420 000000 SGDADR: .WORD 0 7;CONTAINS ADDRESS OF ‘GOOD’ DATA 
905 001422 000000 SBDADR: .WORD 0 z:CONTAINS ADDRESS OF ‘BAD’ DATA 
906 001424 000000 SGDDAT WORD 0 Shy ay te ‘ GOOD" DATA 
907 001426 000000 SBDDAT: .WORD 0 :;CONTAINS ‘BAD’ DATA 
908 001430 000000 WORD 0 7 ;RESERVED=--NOT TO BE USED 
909 001432 00 eWORD O 
910 001434 000 SAUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 
911 001435 000 SINTAG: .BYTE 0 s: INTERRUPT MODE INDICATOR 
912 001436 -WORD 0 
913 001440 177570 » WORD DSWR ; ADDRESS OF SWITCH REGISTER 
914 001442 177570 DISPLAY: -WORD ODISP ;;ADDRESS OF DISPLAY REGISTER 
915 001444 177560 TKS: 177560 si; TTY KBD gras 
916 001446 177562 $TKB: 177562 s;TTY KBD 
917 001450 177564 STPS: 177564 ssTTy SAINTE. STATUS REG. ADDRESS 
918 001452 177566 STPB: 177566 33; TTY PRINTER BUFFER REG. ADDRE 
919 001454 $NULL: .BYTE 0 ; 3 CONTAINS NULL CHARACTER FOR FILLS 
920 001455 002 SFILLS: .BYTE 2 sCONTAINS # OF FILLER CHARACTERS REQUIRED 
921 001456 012 SFILLC: .BYTE 12 3: INSERT ith CHARS. AFTER A ‘‘LINE 
922 001457 000 STPFLG: .BYTE 0 ::''TERMINA VAILABLE" Lae (BIT<07>=0=YES) 
923 001460 000000 SREGAD: .WORD 0 2S CONTAINS. THE ADDRESS FROM 
924 z:WHICH ($REGO) WAS OBTAINED 
925 001462 000000 $REGO WORD 0 ;;CONTAINS ((S$REGAD)+ 
926 001464 000000 SREG1 WORD 0 :; CONTAINS (($REGAD) +2) 
927 001466 000000 SREG «WORD OQ :: CONTAINS (($REGAD) +4) 
928 001470 000000 $REG -WORD OQ :: CONTAINS (($REGAD) +6) 
929 001472 000000 SREGS 0 CONTAINS (($REGAD) +10) 
930 001474 000000 SREGS: .WORD 0 3s CONTAINS ( ($REGAD) +12) 
931 001476 000000 STMPO: .WORD 0 ;;USER DEFINED 
932 001500 000000 STMP1: .WORD 0 3;USER DEFINED 
933 001502 000000 STMP WORD 0 7 USER DEFINED 
934 001504 000000 $TMP WORD 0 7 ;USER DEFINED 
935 001506 000000 STmMP4: .WORD 0 77;USER DEFINED 
936 001510 000000 STMP5: .WORD 0 F SER DEFINED 
937 001512 000000 STIMES: 0 7;MAX. NUMBER OF ITERATIONS 
938 001514 000000 SESCAPE:0 SESCAPE ON ERROR ADDRESS 
939 001516 177607 000377 $BELL: .ASCIZ > » aati CODE FOR BELL 
940 001386 077 SQUES: .ASCII ; QUESTION MARK 
941 00152 015 SCRLF: .ASCII tis 7; CARRIAGE RETURN 


cometh 
CZDUQC M11 
04 | 001524 000012 
9 


945 

946 

947 

948 001526 

949 001526 000000 
950 001530 000000 
951 001532 0000 
952 001534 000000 
953 001536 000000 
954 001540 000000 
955 001542 000000 


958 001546 000 
000 


962 001554 000000 


964 
965 
966 
967 
968 
969 001556 000 
970 001557 000 
971 
972 
973 
974 
44 001560 000000 
977 001562 000 
978 001563 000 
979 001564 000000 
980 001566 000 
981 001567 000 
982 001570 000000 
983 ool atg 000 
984 00157 000 
985 001574 000000 
986 001576 000000 
987 001600 000000 
988 001602 000000 
989 001604 000000 
St Rist Bee 
992 00161 000000 

001 

001 

001 

001 

001 


GAOO 


RNSoe 
zs 
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COMMON TAGS 


SLF: 


SUSWR: 
SCPUOP: .W 


oe @e 


Sete te Pee ee 
ee, Se a 


= 
nr »D 
~ = 


4 
- 
~< 
wv 
~ 


$3: 
SMTYP3: 
DR3: 


eASCIZ <12> 


SRRAARAAREAAEARAEEEAAHAT TAREE AEAAAEREAAAAAAREAAAEEREERAARARRE EES 


“SBTTL APT MAILBOX-ETABLE 


FF RRRAAAAAAAAERAAAAAAAEA EAE AAA AAA AAAEAAAARAAAAEAAEERAAAARAARAHEREE 


AMSGTY 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


1 2 


;;LINE FEED 


;;APT MAILBOX 
HIMESSAGE TYPE CODE 
+i FATAL L_ ERROR NUMBER 


11770206. PDQ=07, 
10=REAL TIME CLOCK 
9J=FLOATING POINT —— 
8=MEMORY som ENT 


kai 

BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR= 002 
500 N + ete 
;;HIGH ADDRESS ,B 

rae AST 
; HIGH "ADDR ESS,M. 
fh i TYPE ,BLKA2_ 
M.LAST ADDRESS ,BLK#2 
Ten ADDRESS ,M.S.BYTE 
SSMEM. TYPE BLKAS 


::MEM.LAST ADDRESS,BLK#3 

S:HIGH ADDRESS,M. E 

°: MEM. TYPE ,BLKAG 

[:MEM.LAST ADDRESS ,BLK&4 

i INTERRUPT VECTOR#1 BUS PRIORITYA1 
NTERRUPT VECTOR#2BUS PRIORITY#2 

:3BA SE ADDRESS OF EQUIPMENT UNDER TEST 


MAP 
i CONTROLLER DESCRIPTION WORD#1 
;; CONTROLLER Breton nae —— 


;:DEVICE DESCRIPTOR WOR 

7;DEVICE DESCRIPTOR WORD#1 
;;DEVICE DESCRIPTOR WORDS 
;;DEVICE DESCRIPTOR WORD# 
7;DEVICE DESCRIPTOR WORD#4 
;;DEVICE DESCRIPTOR WORDAS 


YPE 
1704201. 11/05=02, <n =03,11/40=04,11/45=05 


ADDR. ne ‘avtes, -THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 


SEQ 0021 








CzduUa-CO MACY11 30A(1052) 09-SEP-80 10:57 PAGE 26 
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998 001626 $DDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORDM6 
999 001630 000000 $DDW7: .WORD ADOW? ;;DEVICE DESCRIPTOR WORD# 
1000 001632 000000 $DDW8: .WORD  ADDWS EVICE DESCRIPTOR WORD#8 
1001 001634 000000 SDDW9: =. W ; DEVICE DESCRIPTOR WORDAD 
1002 001636 000000 $DDWi0: . ADDWI0 = ;;DEVICE DESCRIPTOR WORD#10 
1003 001640 000000 SDDW11: .W ADDW11 ;;DEVICE DESCRIPTOR WORDA11 
1004 001642 000000 $DDWI2: .W ADDWI2 ;;DEVICE DESCRIPTOR WORDA1 
1005 001644 000000 $DDW1 W ADDW15 ;;DEVICE DESCRIPTOR WORD#! 
1006 001646 000000 SDDW14: .WORD ADDWI4 ;;DEVICE DESCRIPTOR WORD#14 
od 001650 000000 SDDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 

1009 
1010 001652 SETEND: 
1011 
1012 
1013 





a ee 
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1014 
1015 
1016 
1017 s INSTRUCTION DEFINITIONS 
1019 005746 PUSH1SP=5746 — ; DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
1020 005726 POP1SP=5726 S INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
1021 010046 PUSHRO=10046 : SAVE RO ON STACK =MOV RO,-(SP) 
1022 012600 POPRO=12600 i RESTORE RO FROM STACK =MOV (SP)+,RO 
1023 024646 PUSHESP=246 646  :DECREMENT STACK TWICE =CMP -(SP) ,-(SP) 
1024 022626 POP2SP=22626 i INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
1025 sREGISTER DEFINI ITIO 
1026 R BIT “DEFINITIONS 
1027 0000 pscepiT18"" DATA SET CHANGE 
1028 040000 RING=BIT14 p N 
1029 020000 CTS=B1T13 =CLR TO SEND 
1030 CARDET=B1T12 SCARRIER DETECT 
1031 004000 RECACT=BIT11 REC ACTIVE 
1032 SRD=BIT10 :SEC REC DATA 
1033 001000 DSR=BIT9 [DATA SET RDY 
1034 000400 STPSYN=B1T8 :STRIP SYNC 
1035 000200. RXDONE =B1T7 REC 
1036 RINTEN=BIT6 :REC INTR ENABLE 
1037 000040 DSINTE=BITS [DSC INTR ENABLE 
1038 00 SYNSCH=BIT4 : SYNC 
1039 000010 STD=BIT3 [SEC XMIT DATA 
1040 000004 RTS=BIT2 :REQ TO SEND 
1041 000002 DTR=BIT1 sDATA TERM RDY 
1042 000001 VOID=BITO 
1043 ;RXDBUF BIT DEFINITIONS 
1044 100000 RXERR=BIT15 REC ERROR 
1045 040000 OVRRUN=B1T14 OVERRUN 
1046 020000 FRMERR=B1T13 i ERAME ERROR 
1047 010000 PARER=BIT12 ARITY ERROR 
1048 -PARCSR BIT DEF IWITIONS 
1049 001000 PAREN=B119 sPARITY ENABLE 
1050 000400 EVPAR=B118 SEVEN PARITY SENSE 
1051 PARCSR WRD DEFINITION S 
1052 030000 SYNINT=30000 YNC EXTERNAL MODE 
1053 020000 SYNEXT=20000 SYNC INTERNAL MODE 
1054 000000 1SYMOD=0 MODE 
1055 000000 FIVE=0 “WORD LENGTH 5 BITS 
1056 002000 $1X=2000 sWORD LENGTH 6 BITS 
1057 004000 SEVEN=4000 ‘WORD LENGTH 7 BITS 
1058 006000 E1GHT=6000 ‘WORD LENGTH 8 BITS 
1059 000000 NOPAR=0 [NO PARITY 
1060 001000 ODDPAR=1000 [ODD PARITY 
1061 001400 EVEPAR=1400 “EVEN PARITY 
1062 -TXCSR BIT DEFINITIONS 
1063 100000 DNA=B1T15 sDATA NOT AVAILABLE 
1064 040000 RTDATASBIT14 [MAINT DATA 
1065 020000 CLK=B1T1 CLK 
1066 002000 BITW=B1T10 ‘BIT WINDOW 
1067 000400 MRESET=B1T *MASTER RESET 
1068 000200 TXDONE =B1T [XMIT DONE 
1069 000100 TXINTE=B116 :XMIT INTR ENABLE 
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004 DNAINTE=BITS :DNA INTR ENAB 
00002 SENL=BIT4 : SEND 
000010 HDXEN=6i 13 : HDX/FOX 
000001 BREAK=B1TO RE AK 

sTXCSR WRD per wit Ons 

000000 USER= R MOD 
004000 MINTS 4000 CMAINT INT MODE 
010000 MEXT=10000 ‘MAINT EXT MODE 


014000 SYSTST=14000 ;SYSTEM TEST MODE 
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1079 .SBTTL ERROR POINTER TABLE 

1081 s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 
1082 [*THE INFORMATION I$ OBTAINED BY USING THE INDEX NUMBER F 
1083 ;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1s PERTINENT. 
1084 : #NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS ( 
$4 : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS FAPLAINED AS FOLLOWS: 
1087 38 EM ::POINTS TO THE ERROR MESSAGE 
1088 3° DH :;POINTS TO THE DATA HEADER 

1089 st DT ;;POINTS TO THE DATA 

1090 3* OF :;POINTS TO THE DATA FORMAT 

1091 

1092 

1093 001652 ” $ERRTB: 

1094 ce ERROR TABLE 

1095 001652 001762 EM! sERROR 1 REGISTER ERROR 
1096 001654 002067 as DH1 

1097 001656 002116 oT1 

1098 001660 002132 DF1 

1099 001662 002022 EM2 sERROR 2 RECEIVER ERROR 
1100 001664 002067 DH1 

1101 001666 002116 DT1 

1102 001670 002132 DFI 

1103 001672 002043 EM3 sERROR 3 TRANSMITTER ERROR 
1104 001674 002067 DH] 

1105 001676 002116 dT1 

1106 001700 002132 DFI 

1107 001702 001746 EM4 sERROR 4 BIT ERROR (GENERAL) 
1108 001704 000000 0 

1109 001706 002126 DT4 

1110 001710 002132 DF1 

1112 :DEFAULT DU ADDRESSES 

1113 001712 160010 RXCSR: 160010 

1114 001714 160011 HRXCSR: 160011 

1115 001716 160012 RXDBUF: 160012 

1116 001720 160013 HRXDBUF : 160013 

1117 001722 160012 PARCSR: 160012 

1118 001724 160013 HPARCSR: 160013 

1119 001726 160014 TXCSR: 160014 

1120 001730 160015 HTXCSR: 160015 

1121 001732 160016 TXDBUF: 169016 

1122 001734 160017 HTXDBUF : 160017 

1123 >DEFAULT ou VECTORS 

1124 001736 000770 DURIV: 770 REC INTR VECTOR 

1125 001740 000772 DURIS: 772 CREC INTR STATUS 

1126 001742 000774 DUTIV: 774 ?KMIT INTR VECTOR 

1127 001744 000776 DUTIS: 776 *XMIT INTR STATUS 

1128 sERROR MESSAGES 

1149 001746 020060 051105 047522 EM4:  .ASCIZ / ERROR PC / 

1130 001754 020122 041520 000040 

1131 sata 33 20040 7503 ee bE EMI: -ASCIZ / COMPARISON ERROR ON REGISTERS/ 

113¢ 0017 51101 051511 047117 

11 001776 2460 51122 51117 

1134 002004 440 020116 042522 


SEQ 0025 
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;DATA TABLES FOR ERROR INESSAGES 


002116 001416 001130 001132 DTI: WORD $SERRPC,HLDO,HLD1.O 


11 tse: 044507 052123 051105 

11 0020 000123 

11 0020 pegers 042522 tthe EM2: eASCIZ / RECEIVER ERROR/ 

11 0020 053111 051105 042440 

11 002036 051122 051117 000 

11 002043 040 052040 040522 EM3: eASCIZ / TRANSMITTER ERROR/ 

11 002050 051516 044515 052124 

11 002056 051105 042440 051122 

11 002064 051117 000 

11 ;DATA HEADERS FOR ERROR MESSAGES 

11 002067 193 051122 041520 DH1: -ASCIZ /ERRPC WANTED ACTUAL/ 

11 002074 020040 040527 052116 

11 002102 042105 020040 041501 

11 002110 052524 046101 

13 002116 EVEN 

11 

i 

+ 002126 001416 000000 DT4: -WORD SERRPC,0 

11 002132 000 000 000 DF1: -BYTE 0,0,0,0 

11 002135 000 

11 EVEN 

. -SBTTL ACT11 HOOKS 

11 FERRARA RARER AREA ERE AA AA AERA RARER E RE REREAEEAAREAKAAAERARARKRKRA EE 
11 ;HOOKS REQUIRED BY ACT11 

11 002136 SSVPC=. ;SAVE PC 

11 000046 -=46 

a 000046 BAeges es 371)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
11 000052 000000 «WORD 0 3:2)SET LOC.52 TO ZERO 

11 002136 -=$SVPC 33 RESTORE PC 

1195 -SBTTL APT PARAMETER BLOCK 

1171 PARAAAeeaeeeeeeeeeeeeeeeeeeeeteneaaeteaAKeeAteeeereteeeeteeert 
1172 :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

1173 PLRAAAAAAAAAAAAAAATAAAATAA TATA AeAeAAeeeKeKAAKeteAKeeKeeKeeAeAtes 
1174 002136 -$X=. 33SAVE CURRENT LOCATION 

1175 000024 2=24 33 POWER FAIL TO POINT TO START OF PROGRAM 
1176 000024 000200 200 33;FOR APT START 4 
1177 000044 .= 3;POINT TO APT INDIRECT ADDRESS PNTR. 

1178 000044 002136 SAPTHDR ;;POINT TO APT HEADER BLOCK 

1179 002136 -=.$X  3;;RESET LOCATION COUNT 

1180 Feeeeeeeaeeeaeeeeeeeeeeteeeeeereaatreereteeettenttteeerreerreet 
1181 ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
Mat s INTERFACE SPEC. 

1184 002136 SAPTHD: 

1185 002136 000000 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
1186 002140 001526 SMBADR: .WORD SMAIL ;;ADORESS OF APT MAILBOX (BITS 0-15) 

1187 002142 10 STSTM: .WORD 10 3:RUN TIM OF LONGEST TEST 

1188 002144 10 SPASTM: .WORD 10 :;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1189 Boetss SUNITM: .WORD Hea) Mere RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1190 002150 000052 -WORD SETEND-SMAIL/2 ;;LENGTH MA'LBOX-ETABLE (WORDS) 
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1191 
1192 
1193 sPROGRAM_ INITIALIZATION 
1194 sLOCK OUT INTERRUPT 
1195 . ;SET UP pruse ERT STACK 
1196 ;SET UP POWER FAIL VECTOR 
1197 CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
1 sTYPE TITLE MESSAGE 
1200 002152 «START: 
1201 ~SBTTL. INITIALIZE THE COMMON TAGS 
1202 7;CLEAR THE COMMON TAGS (SCMTAG) AREA 
1203 002152 012706 001400 MOV #SCMTAG,R6 s3FIRST LOCATION TO BE CLEARED 
1204 002156 005026 CLR (R6)+ ;;CLEAR MEMORY LOCATION 
1205 002160 022706 001440 CMP #SWR,R6 ;;DONE? 
1206 002164 001374 ed -6 ;;LOOP BACK IF NO 
1207 002166 012706 001100 #ESTACK, SP 3;SETUP THE STACK POINTER 
1208 s pINITIALIZE A FEW VECTORS 
1209 002172 012737 016272 000020 MOV #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
1210 0022 012737 000340 000022 MOV #340, a#10TVEC+2 ;;LEVEL 7 
1211 0022 012737 014160 000030 MOV #SERROR , PEMTVEC +s EMT VECTOR FOR ERROR ROUTINE 
1212 002214 012737 000340 000032 MOV #340 ,a#EMTVEC+2 ;:LEVEL 7 
1213 002222 012737 016626 000034 MOV #STRAP ,O#TRAPVEC fie VECTOR FOR TRAP CALLS 
1214 002230 012737 000340 000036 MOV #340, ,a#TRAPVEC+2;LEVEL 7 
1215 22 012737 014762 000024 MOV #SPURDN, a#PWRVEC :: POWER FAILURE VECTOR 
1216 002244 012737 000340 000026 MOV #340, a@PWRVEC+2 ;;LEVEL 7 
1217 002252 005067 177234 CLR STIMES se INITIALIZE NUMBER OF ITERATIONS 
1218 002256 005067 177232 CLR SESCAPE 73CLEAR THE cae ON or ADDRESS 
1219 2262 112767 000001 177125 MOVB 4 o SERMAX 7;ALLOW ONE ERROR PER TEST 
1220 002270 012767 002270 177110 MOV -  SLPADR ey Yt THE LOOP ADDRESS FOR SCOPE 
1221 002276 012767 002276 177104 MOV : ,SLPERR P THE ERROR LOOP ADDRESS 
1222 ::S1ZE FOR A HARDWARE SWITCH rei ster. IF NOT FOUND OR 
1223 ;;EQUAL TO A ‘'=1"', SETUP FOR . SOFTWARE SWITCH REGISTER. 
1224 002304 013746 000004 MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
1225 002310 012737 002344 000004 MOV ys neds agERRVEC ¢3SET UP_ ERROR VECTOR 
1226 002316 012767 177570 177114 MOV #OSWR, SUR SETUP FOR A HARDWARE SWICH REGISTER 
1227 002324 012767 177570 177110 MOV #DDISP,DISPLAY ;;:AND A HARDWARE DISPLAY REGISTER 
1228 002332 022777 177777 177100 CMP #-1,aSUR z3TRY TO We to Tin HARDWARE SWR 
1229 002340 001012 BNE 668" ;;BRANCH IF NO TIMEOUT TRAP De ae 
1230 33AN ND THE HARDWARE SWR IS NOT = -1 
1231 002342 000403 BR 65$ ;BRANCH IF NO TIMEOUT 
1232 002344 012716 002352 64$: MOV #65$, (SP) 77SET UP FOR TRAP RETURN : 
1233 002350 BOg00s RTI 
1234 002352 012767 000176 177060 65%: MOV #SWREG, SWR 73POINT TO SOFTWARE S's 
1235 002360 gig ¢? 000174 177054 MOV #DISPREG DISPLAY 
iss 002366 0126357 000004 66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
1238 002372 005067 177136 CLR SPASS i;CLEAR PASS COUNT 
1239 002376 132767 000200 177143 BITB #APTSIZE ,SENVA itty USER atts snait APT 
1240 2404 001403 BEQ 67$ YES,USE NON-APT SWITCH 
1241 rep 012767 001550 177024 MOV #SSWREG, SUR 7:NO,USE APT SWITCH REGISTER 
106 41 67$: 
1245 002414 0127 Oo yheS MOV OE atk oP sSET STACK 
1244 002420 1 340 MTPS #340 LOCK INTERRUP 
1245 002424 012737 pe rSe 000024 MOV #.PFAIL,a#24 :SET UP POWER FAIL VECTOR 
1246 002452 105067 17653 CLRB STFLG :CLEAR START FLAG 
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1247 002436 005067 176450 CLR PASCNT sCLEAR PASS COUNT 
1248 002442 105067 176735 CLRB = SERFLG ‘CLEAR ERROR FLAG 
1249 O02446 005067 176740 CLR SERTTL “CLEAR ERROR COUNT 
1250 002452 005067 176740 CLR SERRPC ‘CLEAR LAST ERROR POINTER 
1251 002456 012767 000001 176716 MOV #1, $TSTNM ‘SET UP FOR TEST 1 
1252 002464 012767 002152 176412 MOV #.START,RETURN ;SET UP FOR POWER FAIL BEFORE 
1253 “TESTING STARTS 
1254 002472 013746 000006 MOV a#6,-(SP) 
1255 002476 013746 000004 MOV avs ,-(SP) 
1256 002502: 012737 002516 000004 MOV #1$.a84 
1257 002510 005777 176724 TST aswe 
1258 002514 000407 BR $ 
1259 002516 012767 000176 176714 1S: MOV #SWREG, SWR 
1260 002524 012767 000174 176710 MOV #DISPREG DISPLAY 
1261 002532 022626 CMP (SP)+,(SP)+ 
1262 002534 012637 000004 23: MOV (SP)+,a#4 
1263 002540 012637 000006 MOV (SP)+,a%6 
1264 002544 022767 000176 176666 CMP #SWREG, SUR 
1265 002552 001007 BNE 33 
1266 002554 005737 000042 TST ars2 :CHECK FOR CHAIN 
1267 002560 001402 BEQ 3$ 
1268 002562 000167 000522 JMP BEGIN 
1269 002566 004767 010154 33$: JSR PC, CNTLU 
1270 002572 105767 176374 3$: TSTB INIFLG ;HAS INITIALIZATION BEEN PERFORMED 
1271 002576 001004 BNE ONCE 
1272 002600 104401 015122 TYPE »MTITLE ;TYPE TITLE MESSAGE 
1273 002604 105167 176362 COMB ss NIFLG “IF NOT SET FLAG AND DO 
137% 002610 105767 176732 ONCE: TSTB  $ENV :APT CONTROL? 
1275 614 001410 BEQ 11$ “BR IF NO 
1276 002616 032767 000001 176726 BIT #1, SUSUR SEXTENAL JUMPER ON? 
1277 002624 001002 BNE 128 ZN 
1278 002626 105067 176321 CLRB =: JMRBY “CLEAR FLAG 
1279 002632 000167 000452 128: JMP BEGIN :60 DO IT 
1280 002636 032777 000001 176574 11$: BIT #SWO00,aSWR sRESELECT VECTOR & CONTROL REG? 
1281 002644 001002 BNE 1$ 
1282 002646 000167 000436 JMP BEGIN 
1283 002652 012700 000300 1$: MOV #300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
1284 002656 012701 000302 MOV #302.R1 :START AT LOCATION 300 
1285 002662 012702 000004 MOV #4,R 
1286 002 010110 2$: MOV R1. (RO) 
1287 0062670 005011 CLR (ri) 
1288 002672 060200 ADD R2,RO | 
1289 002674 060201 ADD R2,R1 
1290 002676 022701 001000 CMP #1600,R1 sEND AT LOCATION 776 
1291 002702 002771 BLT 2 
1292 002704 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
1293 002706 015171 MREGAD ;MESSA 
1294 002710 104410 PARAM :CONVERT STRING 
1295 002712 160000 160000 ; IMLT 
1296 002714 177776 177776 :HIGH LIMIT 
1297 002716 017122 DUBASE :STORE AT THIS LOCATION 
1298 002720 001 .BYTE 1 ; 
1299 0067 1 1 "BYTE 1 “HOW MANY TIMES + 2 
1 00 ree 016767 014174 176226 MOV DUBASE ,KEEPADD ;SAVE 
1301 0027 004767 014034 JSR PC ADOR 
1302 002734 016767 176216 176212 MOV KEEPADD,BASEADD ; RESTORE FOR ROTATION 
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1308 002742 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 

1304 002744 015156 MVECTO :MESSA 

1305 002746 104410 PARAM CONVERT STRING 

1306 002750 000300 300 ‘LOW LIMIT 

1307 002752 000776 776 ‘HIGH LIMIT 

1308 002754 001736 DURIV :STORE AT THIS LOCATION 

1309 002756 00 .BYTE 1 MAS 

1310 002757 004 "BYTE 4 :HOW MANY TIMES + 

1311 002760 016767 176752 176176 MOV DURIV,KEEPIV ; SAVE 

1312 002766 016767 176744 176166 MOV DURIV,BASELV | :SET UP FOR ROTATION 
1313 002774 104406 INSTR  ;OUTPUT MESSAGE & GET INPUT STRING 

1314 002776 015221 MMULT  : MESSAGE 

1315 003000 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 

1316 003002 001152 MULTD  :THIS FLAG 

1317 003 105767 176142 —. TSTB MULTD ;ARE THERE MULTIPLE DEVICES 
1318 [ON THE SYSTEM ? 

1319 003010 100406 BMI BBB SYES,ASK NEXT QUESTION 

1320 003012 005067 176150 CLR ACTREG 

1321 003016 005067 176146 CLR ROTADD 

1322 003022 000167 000140 JMP OUTMUL ;JUMP AROUND NEXT QUESTION 

1323 003026 BBB: 

1324 003026 104406 INSTR  ;OUTPUT MESSAGE & GET INPUT STRING 

1325 003030 015250 MLASTD : 

1326 003032 104410 PARAM :CONVERT STRING 

1327 003034 160000 160000 ;LOW LIMIT 

1328 003036 177776 177776 = :HIGH LIMIT 

1329 003040 001160 LASTADD :STORE AT THIS LOCATION 

1330 00304 001 .BYTE 1 MASK 

1331 00304 001 "BYTE 1 ‘HOW MANY TIMES + 2 

1332 “THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME 
1333 003044 012767 000001 176116 i$: MOV #1, ROTADD :SET UP POINTER 

1334 003052 005067 176110 CLR ACTREG ;CLR ACTIVE REGISTER 

1355 003056 056767 176106 176102 2%: BIS ROTADD,ACTREG | ;MAKE THIS DEVICE ACTIVE 
1336 003064 000241 CLC 

1337 003066 006167 176076 ROL ROTADD ;SET UP POINTER 

1338 003072 103421 BCS 3$ :ARE YOU OUT OF RANGE ? 

1339 003074 767 000010 176052 ADD #10, BASEADD ;SET UP BASE ADDRESS 
1340 003102 026767 176052 176044 CMP LASTADD,BASEADD :1S THIS THE LAST DEVICE ? 
1341 003110 101362 BHI $ ;NO DO IT AGAIN 

134¢ 003112 056767 176052 176046 BIS ROTADD,ACTREG ;THIS ASSUMES THAT THERE ARE AT 
134 sLEAST TWO DEVICES WHEN YOU ANSWER YES TO 
1344 “MULTIPLE DEVICE QUESTION 

1345 003120 012767 000001 176042 4$: MOV 1 ,ROTADD ;SET UP FOR LATER USE IN END OF PASS ROUTINE 
1346 003126 016767 176024 176020 MOV KEEPADD,BASEADD :DITTO 

1347 003134 000414 BR OUTMUL ;CONTINUE QUESTIONS 

1348 003136 016767 176014 176010 38: MOV KEEPADD,BASEADD ; RESTORE 

1349 003144 104406 INSTR  ;OUTPUT MESSAGE & GET INPUT STRING 

1350 003146 015344 MRANGE ;MESSAGE 

1351 003150 104410 PARAM CONVERT STRING 

135¢ 3152 160000 160000 ;LOW LIMIT 

135 3154 177776 177776 :HIGH LIMIT 

1354 156 001160 LASTADD :STORE AT THIS LOCATION 

1355 903160 001 .BYTE 1 : MASK 

1356 3161 001 "BYTE 1 “HOW MANY TIMES + 2 

1357 003162 000167 177656 JMP “DO IT AGAIN 

1358 003166 012767 000340 013570 OUTMUL: MOV #340, DUPRT 
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1359 003174 004767 013514 JSR PC ,DULEV 
1360 > COMPARE THE FIRST CHARACTER AN THE TELETYPE INPUT 
1361 iBUFFER TO THE CHARACTERS ‘1’ w x’ 
1368 SIF THE CHARACTER IS ''1'’ CLEAR ATE FLAG 
136 :IF THE CHARACTER IS ''2'' SET THE FLAG 
1364 003200 AAA: 
1365 003200 104406 INSTR  ;OUTPUT MESSAGE & GET INPUT STRING 
1366 003202 015562 MSYNC MESSAGE 
1367 003204 122767 000061 012712 3$: CMPB. #11, INBUF 538 10 “V9 
1368 003212 001003 BNE 
1369 003214 105067 175726 CLRB = SYNCNO _; 000 
1370 003220 000412 BR ; 
1371 003222 122767 000062 012674 1$: CMPBs#'2, INBUF 2:08 17°?" 9 
1372 003230 001004 BNE 
1373 003232 112767 177777 175706 MOVB = #=1, SYNCNO 3377 
1374 003240 000402 R 
1375 003242 104407 2$: INSTER ;:RETRY 
1376 003244 000757 BR $$ 
1377 003246 000240 4$: NOP 
1378 003250 104406 INSTR a Hy} MESSAGE & GET INPUT STRING 
1379 003252 015630 MWIRE6 ; 
1380 003254 104414 SETFLG iSet FLAG BASED UPON INPUT STRING 
1381 003256 001147 SEXMIT :THIS FLAG 
1382 60 104406 INSTR :UrPUT PSSAGE & GET INPUT STRING 
1383 003262 015701 MWIRES :ME 
1384 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
1385 001150 SEREC ;:THIS FLAG 
1386 3270 104406 INSTR : OUTPUT MESSAGE & GET INPUT STRING 
138 3272 015751 MWIRES : MESSAGE 
1388 003274 104414 SETFLG SET FLAG BASED UPON INPUT STRING 
1389 003276 001151 OPTCLR :THIS FLAG 
1390 3300 104406 INSTR : OUTPUT MESSAGE & GET INPUT STRING 
1391 003302 016030 MEXTJ  ;MESSAGE 
1392 33 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1398 003306 001153 JMRBY  :THIS FLAG 
Hf 44 ;TEST START AND RESTART 
1397 003310 012706 001100 -BEGIN: MOV #STACK,SP ;SET UP STACK 
1398 003314 106427 000340 MTPS #340 ;LOCK OUT INTERRUPTS 
1399 003320 032777 000002 176112 BIT  ° #SWO1,aSwR [IF SWO1=1, GET STARTING PC 
1400 003326 001413 BEQ 
1401 003330 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
1402 003332 015514 MTISTPC MESSAGE 
1403 003334 104410 PARAM :CONVERT STRING 
1404 3336 003374 TST1 LOW L LIMIT 
1405 003340 017500 17500 HIGH LIMIT 
1406 3342 001402 STSTNM STORE AT THIS LOCATION 
1407 003344 001 .BYTE 1 
1408 003345 01 "BYTE 1 TO MANY TIMES + 2 
1409 003346 016767 176030 175530 MOV $TSTNM, RETURN 
1410 003354 000403 BR 4$ 
1411 3356 012767 003374 175520 35%: MOV ft he RETURN fay AT TEST 1 
1412 003364 104401 015510 4$: TYPE R 
1613 003370 000177 175510 JMP SRE TURN START TESTING 
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1415 
1416 si THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1418 WITTTTITITITILILILILILTTILITILiLiT Titi iii tii lie 
1419 003374 000004 iéT1: SCOPE 
1420 003376 012737 017362 000004 MOV #TRPREG, a84 :SETUP TRAPCATCHER 
1421 003404 016737 174730 000006 MOV R7,a#6 ; 
1422 003412 105277 176274 INCB = ARXCSR sTEST THIS REG 
1423 003416 000401 BR +h IF OK JMP AROUND ERR 
1424 003420 104004 ERROR & sCHECK DEVICE OREG ADDRESSES 
1425 003422 105277 176266 INCB QHRXCSR : TEST UPPER BYTE | THIS REGISTER 
1426 003426 000401 BR :IF OK JMP AROUND ERROR 
1427 003430 104004 ERROR '’ ne ECK DEVICE REG ADDRESSES 
1428 003432 012737 000006 000004 MOV #6084 :RESTORE TRAPCATCHER 
1429 003440 012737 000000 000006 MOV #0.a#6 ; 
1431 003446 012767 006200 175444 MOV #6200, HOLD :SET LONGER DELAY FOR TEST. ::REV. CO 
1432 i; THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1434 H Z WTTTTTTTTTTITTTTTTTTTTTTTLI TTT TTTTTTT TTI Liti titi iii. 
1435 003454 000004 TST2: SCOPE 
1436 003456 012737 017362 000004 MOV #TRPREG, 046 :SETUP TRAPCATCHER 
1437 003464 016737 174650 000006 MOV PR7,a#6 ; 
1438 003472 105277 176220 INCB = @RXDBUF sTEST THIS REG 
1439 003476 000401 BR +4 ‘IF OK JMP AROUND ERRO 
1440 003500 104004 ERROR 4 sCHECK DEVICE REG ADDRESSES 
1441 003502 105277 176212 INCB @HRXDBUF : TEST UPPER BYTE THIS gREGist ER 
144 003506 000401 BR +4 ‘IF OK JMP AROUND ERR 
1443 003510 104004 ERROR 4 sCHECK DEVICE OREG ADDRESSES 
1444 003512 012737 000006 000004 MOV #6 an :RESTORE TRAPCATCHER 
1645 003520 012737 000000 000006 MOV #0,a#6 ; 
147 ;:THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1449 3 g TTT TTTTTTTTTTTITITITITTTTTTTTTTTTTITTTITITTITTTIT iii 
1450 003526 000004 1S13: SCOPE 
1451 003530 012737 017362 000004 MOV #TRPREG, 84 :SETUP TRAPCATCHER 
1452 003536 016737 174576 000006 MOV PR7,a#6 ; 
1453 003544 105277 176152 INCB — @PARCSR :TEST THIS REG 
1454 003550 000401 BR +4 ‘IF OK JMP AROUND ERRO 
1455 003552 104004 ERROR 4 sCHECK DEVICE REG ADDRESSES 
1456 003554 105277 176144 INCB = @HPARCSR :TEST UPPER BYTE THIS REGISTER 
1457 003560 000401 BR +4 [IF OK JMP AROUND ERROR 
1458 003562 104004 ERROR 4 :CHECK DEVICE REG ADDRESSES 
1459 003564 012737 000006 000004 MOV #6086 :RESTORE TRAPCATCHER 
1460 003572 012737 000000 000006 MOV #0,a%6 ; 
146¢ si THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 
1464 WTTTTTITITITITITTTTTTTTITITITITITITITITITi Titi 
1465 003600 4 i814: SCOPE 
1466 003602 12737 017362 000004 MOV #TRPREG, 84 :SETUP TRAPCATCHER 
1467 003610 016737 174524 000006 MOV PR7,a#6 ; 
1468 003616 105277 176104 INCB = @TXCSR TEST THIS REG 
1469 003622 000401 BR +4 F OK JMP AROUND ERROR 
1470 003624 104004 ERROR 4 :CHECK DEVICE REG ADDRESSES 
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1471 003626 105277 


1475 003644 012737 


1480 003652 000004 


1499 

1500 

1501 

1502 

1503 003740 000004 
1504 003742 052777 
1505 003750 032777 
1506 003756 001001 
1507 003760 104004 
1508 003762 042777 
1509 003770 032777 
1510 003776 0014 
1511 004000 104 
1512 

1513 004002 052777 
1514 004010 052777 
1515 

1516 

1517 004016 105767 
1518 004022 100006 
1919 004094 052777 
1520 004032 001401 
1521 004034 104004 
1922 004036 000408 
1523 004040 032777 
1524 004046 001001 
1525 004050 104004 
1526 004052 000240 


176076 


000006 
000000 


017362 
174452 
176036 


176030 


000006 
000000 


000000 


000002 
000002 


000002 
000002 


000002 
000400 


175127 
000002 
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INITIALIZE THE COMMON TAGS 


INCB @HTXCSR ; TEST UPPER or Mg} ae tahoe 
BR +4 sIF OK J 


: P AROUND ERR 
ERROR 4 "CH ECK DEVICE OREG ADDRESSES 
MOV #6 ,a%4 ;RESTORE TRAPCATCHER 
MOV #0,a%6 ; 


i3THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS 


ee 
SRR AAARAAEAAAEAEAAAEAAA EAE AAAEAAAAERAAAAAAAAAEEAARAERERAEEATEE 


TST5: 


SCOPE 

MOV #TRPREG, a4 ;SETUP TRAPCATCHER 

MOV PR7, : 

INCB aTXDBUF ;TEST THIS REG 

BR +4 z1F OK JMP AROUND ERRO 

ERROR 4 ;CHECK DEVICE REG ADDRESSES 
INCB @HTXDBUF ;TEST UPPER BYTE yt A _— ER 

BR +4 ;1F OK JMP AROUND ERR 

ERROR 4 CHECK DEVICE OREG ADDRESSES 


MOV #6 ,a#4 ;RESTORE TRAPCATCHER 
MOV #0,a#6 ; 


;;BUS DRIVER TEST 


a) 
FERRARA RARER EAA AER AEE ATER EATER AAA AERA ARERR EAAARAAA AAA AERA ES 


TST6: 


E 
CMP ad aT XDBUF 


ERROR EADING TXDBUF SHOULD BE ALL ZERO'S 
3; THIS Test PERF ORAS MASTER RESET TESTING & 
T;TESTING OF READ/WRITE BIT DTR 


WTTTTTITITITITITITITITITILTLILILT LTT 


ié1?: 


1$: 


23: 


BIS #OTR,ARXCSR :SET THIS BIT 

BIT #DTR,ARXCSR “TEST THIS BIT 

BNE +4 :BR IF ‘t" 

ERROR 4 :THIS BIT SHOULD BE SET 
BIC #OTR,@RXCSR :CLR THIS BIT 

BIT #OTR,ARKCSR ‘TEST THIS BIT 


BEQ +4 ;BR IF ‘'0" 

ERROR 4 THIS BIT SHOULD BE CLR 
;NOW SET THIS BIT 

BIS #OTR,@R 


R,@RXCSR 
BIS WMRESET,@TXCSR ;MASTER RESET 
33 CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 


T$1B = OPTTCLR sTEST FLAG 

BPL 1$ ‘OPTIONAL CLR JUMPER IS NOT IN 

BIT #DTR,A@RXCSR ;TEST THIS BIT 

BEQ +h <BR IF ' 

ERROR 4 =CHECK OUT MASTER RESET LOGIC 


23 3: JMP 
BIT #DTR,ARXCSR “TEST THIS BIT 
BNE +4 sBR IF "4" 
ERROR 4 sCHECK OUT OPTIONAL CLR JUMPER 


SEQ 0032 
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1527 
1528 :; THIS TEST PERFORMS MASTER RESET TESTING & 
1393 s; TESTING OF READ/WRITE BIT RTS 
1531 ; ReRRReeeeeReReeeeeeeeeeteeteteeeeeeneneeeeteetertertereetneene 
1532 000004 TST10: SCOPE 
1533 004056 052777 000004 175626 BIS #RTS,ARXCSR ;SET THIS BIT 
1534 004064 032777 000004 175620 BIT #RTS ,ARXCSR TEST THIS BIT 
1535 004072 001001 BNE +4 sBR IF 't" 
1536 004074 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1537 004076 042777 000004 175606 BIC #RTS,ARXCSR :CLR THIS BIT 
1538 004104 032777 000004 175600 BIT #RTS ,ARXCSR sTEST THIS BIT 
1539 004112 001401 BEQ *4 ;BR IF ‘'O"' 
1540 004114 104004 ERROR 4 ;THIS BIT SHOULD BE CLR 
1541 sNOW SET THIS BIT 
1542 004116 052777 000004 175566 BIS #RTS ,ARXCSR 
1543 004124 052777 000400 175574 BIS #MRESET,@TXCSR ;MASTER RESET 
138 CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 
1546 004132 105767 175013 TSTB OPTCLR ; TEST FLAG 
1547 004136 100006 BPL 1$ sOPTIONAL CLR JUMPER IS NOT IN 
1548 004140 032777 000004 175544 BIT #RTS,ARXCSR sTEST THIS BIT 
1549 004146 001401 BEQ .+4 3 IF *'0"' 
1550 004150 104004 ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
1551 004152 000405 BR 2$ ; JMP AROUND 
1552 004154 032777 000004 175530 1$: BIT #RTS,ARXCSR sTEST THIS BIT 
1553 004162 001001 BNE +4 sBR IF ‘'1"’ 
1554 004164 104004 ERROR 4 sCHECK OUT OPTIONAL CLR JUMPER 
1824 004166 000240 2s: NOP 
1557 sWAIT FOR CABLE DELAYS 
1558 PRRRAeeeeeeee eee ee ee eee teeeteerAeeeeee 
1559 sMODIFY "‘HOLD:*' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
1560 peeeeeeeeeeeeetereeeeetereeeneaneeneree 
1561 004170 016702 174724 MOV HOLD,R2 ;SET DELAY TIME 
1562 004174 005302 DEC R2 
1563 004176 001376 BNE 72 WAIT THIS TIME 
1564 30K NOW FALL THRU AND CONTINUE TESTING........... 
1565 sEXIT STAGE LEFT....CHINNNG! 
1566 s;THIS TEST PERFORMS MASTER RESET TESTING & 
F344 si: TESTING OF READ/WRITE BIT STD 
1569 pp Reeeeeeeeeeetereeeeeeereneeereeenetereeteetertattateateetereees 
1570 004200 000004 TST11: SCOPE 
1571 004202 052777 000010 175502 BIS #STD,@RXCSR :SET THIS BIT 
1572 004210 032777 000010 175474 BIT #STD,@RXCSR ;TEST THIS BIT 
1573 004216 001001 BNE +4 sBR IF "4" 
1574 004220 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1575 eh 33 042777 000010 175462 BIC #STD .@RXCSR sCLR THIS BIT 
1576 0042 032777 000010 175454 BIT #STD,@RXCSR TEST THIS BIT 
1577 004236 001401 BEQ +4 BR IF ‘0 
1578 004240 104004 é :THIS BIT SHOULD BE CLR 
1579 sNOW SET THIS BIT 
1580 004242 052777 000010 175442 BIS #STD,@RXCSR 
1581 004250 052777 000400 175450 BIS #MRESET,@TXCSR ;MASTER RESET 
1582 s;CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER 
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1583 + 
1584 004256 105767 174667 t$1B = OPTCLR TEST FLAG 
1585 004262 10000 BPL 1$ sOPTIONAL CLR JUMPER IS NOT IN 
1586 004264 032777 000010 175420 BIT #STD,@RXCSR sTEST THIS BIT 
1587 004272 001401 BEQ +4 sBR IF ''0'' 
1588 004274 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1589 004276 000405 BR 2$ :JMP AROUND 
1590 004300 032777 000010 175404 1$: BIT #STD,@RXCSR ‘TEST THIS BIT 
1591 004306 001001 BNE +4 BR IF id 
1592 004310 104004 ERROR 4 :CHECK OUT OPTIONAL CLR JUMPER 
1393 004312 000240 2s: NOP Sir sas . 
1595 ri: THIS TEST PERFORMS MASTER RESET TESTING & 
1298 :TESTING OF READ/WRITE BIT SYNSCH 
1598 PUT ITTITTITI TILT I TT ITT ITT T titi iti ti iti iti iii iit iii iti iii iiii 
1599 004314 000004 TST12: SCOPE 
1600 004316 052777 000020 175366 BIS WSYNSCH,@RXCSR ;SET THIS BIT 
1601 004324 032777 000020 175360 BIT WSYNSCH,@RXCSR ;TEST THIS BIT 
1602 004332 001001 BNE +4 sBR IF T" 
1603 004334 104004 ERROR 4 :THIS BIT SHOULD BE SET 
1604 004336 042777 000020 175346 BIC #SYNSCH,@RXCSR ;CLR THIS BIT 
1605 004344 032777 000020 175340 BIT #SYNSCH,@RXCSR ;TEST THIS BIT 
1606 004352 001401 BEQ +4 :BR IF ''0'' 
1607 004354 104004 ERROR 4 :THIS BIT SHOULD BE CLR 
1608 sNOW SET THIS BIT 
1609 004356 052777 000020 175326 BIS #SYNSCH, @RXCSR 
1610 004364 052777 000400 175334 BIS #MRESET,@TXCSR ;MASTER RESET 
1611 004372 032777 000020 175312 BIT WSYNSCH,@RXCSR ;TEST THIS BIT 
1612 004400 001401 BEQ +4 :BR IF ‘'0'' 
1615 004402 104004 ERROR 4 :CHECK OUT MASTER RESET LOGIC 
1615 :: THIS TEST PERFORMS MASTER RESET TESTING & 
1616 s: TESTING OF READ/WRITE BIT DSINTE 
1618 jReeeeeeeneeneeeeeeeeeteneeeteeteneeeneeeeneteeeneeeeenereneenee 
1619 004404 000004 TST13: SCOPE 
1620 004406 052777 000040 175276 BIS #DSINTE,@RXCSR ;SET THIS BIT 
1621 004414 032777 000040 175270 BIT #DSINTE,@RXCSR ;TEST THIS BIT 
62a 004422 001001 BNE +4 sBR IF "4" 
1623 004424 104004 ERROR 4 :THIS BIT SHOULD BE SET 
1624 006626 042777 000040 175256 BIC #DSINTE,@RXCSR ;CLR THIS BIT 
1625 004434 032777 000040 175250 BIT MDSINTE,@RXCSR ; TEST THIS BIT 
1626 004442 001401 BEQ +4 : F 
1627 004444 104 ERR sTHIS BIT SHOULD BE CLR 
1628 :NOW SE $ Bl 
1629 004446 052777 000040 175236 BIS #DSINTE ,@RXCSR 
1630 004454 052777 000400 175244 BIS #MRESET,@TXCSR ;MASTER RESET 
1631 004462 032777 000040 175222 BIT #OSINTE,@RXCSR ;TEST THIS BIT 
1632 004470 001401 BEQ +4 :BR IF 
1635 004472 104 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1635 s: THIS TEST PERFORMS MASTER RESET TESTING & 
1636 >: TESTING OF READ/WRITE BIT RINTEN 
bet ppeeeeeeeeeeneeereeeeteeereereneeeenereeeeeteneeneteneeneeeeeent 










Se ae 
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1639 004474 000004 TST14: SCOPE 
1640 004476 052777 000100 175206 BIS WRINTEN,@RXCSR ;SET THIS BIT 
1641 006504 032777 000100 175200 BIT #RINTEN.ARXCSR :TEST THIS BIT 
ede 004512 001001 BNE +4 sBR IF 't' 
1643 004514 104004 ERROR & -THIS BIT SHOULD BE SET 
1644 004516 042777 000100 175166 BIC WRINTEN,@RXCSR ;CLR THIS BIT 
1645 004524 032777 000100 175160 BIT #RINTEN.ARXCSR :TEST THIS BIT 
1646 004532 001401 BEQ +h ‘BR IF "'0'' 
1647 004534 104004 rR & ;THIS BIT SHOULD BE CLR 
1648 :NOW SET THIS BIT 
1649 004536 052777 000100 175146 BIS #RINTEN, ARXCSR 
1650 004544 052777 000400 175154 BIS #MRESET.@TXCSR ;MASTER RESET 
1651 004552 032777 000100 175132 BIT #RINTEN,ARXCSR :TEST THIS BIT 
1652 004560 001401 BEQ +h ;BR IF "'0"' 
137 004562 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1655 3;THIS TEST PERFORMS MASTER RESET TESTING & 
1628 sz TESTING OF READ/WRITE BIT STPSYN 
1658 PPITTITI IIIT TTI IIIT ITT TIT TLiTii it ii itil i iii titi iiti titi iiiiit 
1659 004564 000004 TST15: SCOPE 
1660 004566 052777 000400 175116 BIS #STPSYN,@RXCSR ;SET THIS BIT 
1661 004574 032777 000400 175110 BIT #STPSYN,@RXCSR ;TEST THIS BIT 
1662 602 001001 BNE +4 sBR IF 4" 
1663 004604 104004 ERROR 4 sTHIS BIT SHOULD BE SET 
1664 004606 042777 000400 175076 BIC #STPSYN,@RXCSR ;CLR THIS BIT 
1665 004614 032777 000400 175070 BIT #STPSYN,@RXCSR TEST THIS BIT 
1666 004622 001401 BEQ +4 ‘BR IF ''0' 
1667 004624 104004 ERROR 4 sTHIS BIT SHOULD BE CLR 
1668 sNOW SET THIS BIT 
1669 004626 052777 000400 175056 BIS #STPSYN, @RXCSR 
1670 004634 052777 000400 175064 BIS MMRESET,@TXCSR ;MASTER RESET 
1671 004642 032777 000400 175042 BIT #STPSYN.@RXCSR :TEST THIS BIT 
1672 004650 001401 BEQ +4 :BR IF "'0"' 
Hy 24 004652 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1675 :;THIS TEST PERFORMS MASTER RESET TESTING & 
1676 S:TESTING OF READ/WRITE BIT BREAK 
1678 j eeeneekeeeeeneteeeeeeeteetetereeteeeeteeteeneeneeereeeerentenes 
1679 004654 000004 TST16: SCOPE 
1680 004656 052777 000001 175042 BIS #BREAK,@TXCSR SET THIS BIT 
1681 664 032777 000001 175034 BIT #BREAK.aTXCSR :TEST THIS BIT 
1682 004672 001001 +4 sBR IF ‘t' 
1683 004674 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1684 004676 042777 000001 175022 BIC #BREAK,@TXCSR CLR THIS BIT 
1685 004704 032777 000001 175014 BIT WBREAK,@TXCSR =; TEST THIS BIT 
1686 006712 001401 BEQ +4 ‘BR IF 
1687 004714 104004 RR i sTHIS BIT SHOULD BE CLR 
1688 ;NOW SET THIS BIT 
1689 004716 052777 000001 175002 1S #BREAK ,aTXCSR 
1690 004724 052777 000400 174774 BIS @MRESET,a@TXCSR MASTER RESET 
1691 004732 032777 000001 174766 BIT #BREAK,@TXCSR =; TEST THIS BIT 
1692 004740 001401 BEQ +h ‘BR IF "0 
1 004742 104004 ERROR 4 :CHECK OUT MASTER RESET LOGIC 


i 
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1695 s; THIS TEST PERFORMS MASTER RESET TESTING & 
1696 Si TESTING OF READ/WRITE BIT HDXEN 
1698 PETTITT ITI TITI ITT ITT ITT TIT t Titi iti iti iii iiti iti itiii titi iii iit) 
1699 004744 000004 T$T17: SCOPE 
1700 004746 052777 000010 174752 BIS WHDXEN,@TXCSR SET THIS BIT 
1701 004754 032777 000010 174744 BIT #HDXEN.@TXCSR =: TEST THIS BIT 
1702 004762 001001 BNE +4 :BR IF 4" 
1703 004764 104004 ERROR & sTHIS BIT SHOULD BE SET 
1704 004766 042777 000010 174732 BIC WHDXEN,@TXCSR CLR THIS BIT 
1705 004774 032777 000010 174724 BIT #HOXEN,@TXCSR s TEST THIS BIT 
1706 005002 001401 Q +4 ‘BR IF "0° 
1707 005 104004 ERROR 4 ;THIS BIT SHOULD BE CLR 
1708 ;NOW SET THIS BIT 
1709 005006 052777 000010 174712 BIS #HDXEN, @TXCSR 
1710 005014 052777 000400 174704 BIS WMRESET,aTXCSR MASTER RESET 
1711 005022 032777 000010 174676 BIT #HOXEN, @TXCSR ;TEST THIS BIT 
1712 005030 001401 BEQ +4 7BR IF ‘'0"' 
in? 005032 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1715 sz THIS TEST PERFORMS MASTER RESET TESTING & 
176 ss TESTING OF READ/WRITE BIT SEND 
1718 PPPISIITITIITIITI TTI TI LITT iTi Titi tii titi iti iiitiitiiii iii iii t i 
1719 005034 000004 1$T20: SCOPE 
1720 005036 052777 000020 174662 BIS WSEND,@TXCSR =; SET THIS BIT 
1721 005044 032777 000020 174654 BIT #SEND ,@TXCSR sTEST THIS BIT 
1728 005052 001001 BNE +4 sBR IF i" 
17 005054 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1724 005056 042777 000020 174642 BIC #SEND,@TXCSR CLR THIS BIT 
1725 005064 032777 600020 174634 BIT #SEND,@TXCSR TEST THIS BIT 
1726 005072 001401 BEQ +4 ‘BR IF ''0"' 
1727 005074 104004 ERROR 4 sTHIS BIT SHOULD BE CLR 
1728 ;NOW SET THIS BIT 
1729 005076 052777 000020 174622 BIS #SEND ,aTXCSR 
1730 005104 052777 000400 174614 BIS WMRESET,@TXCSR ;MASTER RESET 
1731 005112 032777 000020 174606 BIT WSEND,@TXCSR =; TEST THIS BIT 
1732 005120 001401 BEQ +4 ‘BR IF ‘0 
Ht} 005122 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1735 :; THIS TEST PERFORMS MASTER RESET TESTING & 
He ; TESTING OF READ/WRITE BIT DNAINTE 
1738 j  eeeeeeeeeeeeeeeeeeeeeeeeetereeeneeeeeneteeeneteeeeeeenereeeeeee 
1739 005124 000004 T$T21: SCOPE 
1740 005126 052777 000040 174572 BIS #ONAINTE ,@TXCSR ;SET THIS BIT 
1741 005134 032777 000040 174564 BIT #ONAINTE@TXCSR : TEST THIS BIT 
174@ 005142 001001 BNE +4 :BR IF "I" 
1743 005144 104004 ERROR & “THIS BIT SHOULD BE SET 
1744 005146 042777 000040 174552 BIC #ONAINTE ,@TXCSR CLR THIS BIT 
1745 005154 032777 000040 174544 BIT #DNAINTE ,@TXCSR ;TEST THIS BIT 
1746 005162 001401 BEQ .+ BR IF "0 
1747 005164 104004 ERROR 4 :THIS BIT SHOULD BE CLR 
1748 “NOW SET THIS BIT 
1749 005166 052777 000040 174532 BIS #ONAINTE ,aTXCSR 
1750 005174 052777 000400 174524 BIS WMRESET,@TXCSR ;MASTER RESET 
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1751 poste 032777 000040 174516 BIT #DNAINTE ,@TXCSR ; TEST THIS BIT 
1726 005210 001401 BEQ +4 3BR IF ‘'0"' 
\Te? 005212 104004 ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
1755 zs; THIS TEST PERFORMS MASTER RESET TESTING & 
1728 sz TESTING OF READ/WRITE BIT TXINTE 
1758 ; ReRReeeeReeReeeeeheeeeeeeeeteeneeeeeeenenereeeeeneenreeneeees 
1759 005214 000004 TS122: SCOPE 
1760 005216 052777 000100 174502 BIS #TXINTE,@TXCSR ;SET THIS BIT 
1761 005224 032777 000100 174474 BIT #TXINTE,@TXCSR ;TEST THIS BIT 
1762 005232 001001 BNE +h 7BR IF ‘4" 
1763 005234 104004 ERROR 4 sTHIS BIT SHOULD BE SET 
1764 005236 042777 000100 174462 BIC MTXINTE,@TXCSR ;CLR THIS BIT 
1765 005244 032777 000100 174454 BIT #TXINTE,@TXCSR ;TEST THIS BIT 
1766 005252 001401 BEQ +4 BR IF *'O"' 
1767 005254 104004 ERROR 4 sTHIS BIT SHOULD BE CLR 
1768 s;NOW SET THIS BIT 
1769 005256 052777 000100 174442 BIS #TXINTE ,ATXCSR 
1770 005264 052777 000400 174434 BIS WMRESET,@TXCSR ;MASTER RESET 
1771 005272 032777 000100 174426 BIT #TXINTE,@TXCSR ;TEST THIS BIT 
1772 005300 001401 BEQ .*4 3 IF ‘‘O"’ 
HA 6 005302 104004 ; ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
1Te? 3; TEST MAINT MODE BIT 0 
1777 s; THIS TEST PERFORMS MASTER RESET TESTING & 
177 zz TESTING OF READ/WRITE BIT BIT11 
1780 eee eeeeeeeeeneteeeneteneeeeeeeetereeeeneeereneeteeeeeeteeeeene 
1781 005304 004 TST23: SCOPE 
1782 005306 052777 004000 174412 BIS #BIT11,aTXCSR ;SET THIS BIT 
1783 005314 032777 004000 174404 BIT #B1T11,aTXCSR ;TEST THIS BIT 
1784 005322 001001 BNE +4 :BR IF ‘i 
1785 005324 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1786 005326 042777 004000 174372 BIC #BIT11,aTXCSR ;CLR THIS BIT 
1787 005334 032777 004000 174364 BIT #BIT11,a@TXCSR ;TEST THIS BIT 
1788 005342 001401 BEQ .+4 7BR IF ‘'0' 
1789 005344 104004 RROR 4 sTHIS BIT SHOULD BE CLR 
1790 sNOW SET THIS BIT 
1791 005346 052777 004000 174352 BIS #B1T11,aTXCSR 
1792 005354 052777 000400 174344 BIS #MRESET,aTXCSR sMASTER RESET 
1793 005362 032777 004000 174336 BIT #BIT11,aTXCSR ;TEST THIS BIT 
1794 005370 001401 BEQ +4 3 F ‘O° 
i 005372 104004 ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
444 3: TEST MAINT MODE BIT 1 
1799 :; THIS TEST PERFORMS MASTER RESET TESTING & 
i s; TESTING OF READ/WRITE BIT BITI2 
108 MITTITITITITITILTI TILL LLL LLL litt iii 
1803 005374 000004 TS124: SCOPE 
1804 005376 052777 010000 174322 BIS #BIT12,aTXCSR ;SET THIS BIT 
1805 005404 032777 010000 174314 BIT  #BITI2,a@TXCSR |; TEST THIS BIT 
1806 005412 001001 BNE +h :BR IF "4 
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1807 005414 104004 ERROR 4 THIS BIT SHOULD BE SET 
1808 005416 042777 010000 174302 BIC #B1T12,aTXCSR ;CLR THIS BIT 
1809 005424 032777 010000 174274 BIT #BIT12,aTXCSR ;TEST THIS BIT 
1810 005432 001401 BEQ +4 : At om 
1811 0054 104004 ERROR 4 ;THIS BIT SHOULD BE CLR 
1812 NOW SET THIS BIT 
1813 005436 052777 010000 174262 BIS #BIT12,aTXCSR 
1814 005444 052777 000400 174254 BIS #MRESET,@TXCSR sMASTER RESET 
1815 005452 032777 010000 174246 BIT #BITI2,aTXCSR ;TEST THIS BIT 
1816 5460 001401 BEQ +4 BR IF ‘'O"' 
a4 005462 10+004 ERROR 4 ;CHECK OUT MASTER RESET LOGIC 
1819 s;THIS TEST PERFORMS MASTER RESET TESTING & 
ies s: TESTING OF READ/WRITE BIT CLK 
1822  eeeeeeeeeeeeeeeeeeeereereeeereneneeeeenetneeeeeetentereereereee 
1823 005464 000004 TST25: SCOPE 
1824 0054 052777 020000 174232 BIS #CLK ,aTXCSR 3SET THIS BIT 
1825 005474 032777 020000 174224 BIT #CLK ,@TXCSR TEST THIS BIT 
1826 005502 001001 BNE +4 ;BR IF '4" 
1827 005504 104004 ERROR 4 ;THIS BIT SHOULD BE SET 
1828 005506 042777 020000 174212 BIC #CLK ,aTXCSR :CLR THIS BIT 
1829 005514 032777 020000 174204 BIT #CLK ,aTXCSR ;TEST THIS BIT 
1830 005522 001401 BEQ .*4 BR IF ‘'O"' 
1831 005524 104004 ; ERROR 4 ;THIS BIT SHOULD BE CLR 
1832 sNOW SET THIS BIT 
1833 005526 052777 020000 174172 BIS #CLK ,aTXCSR 
See 993375 052777 000400 174164 BIS #MRESET,@TXCSR ;MASTER RESET 
1835 5542 032777 020000 174156 BIT #CLK ,@TXCSR 3; TEST THIS BIT 
1836 005550 001401 BEQ +4 7BR IF ‘0 
a4 005552 104004 ERROR 4 :CHECK OUT MASTER RESET LOGIC 
1859 s;THIS TEST PERFORMS MASTER RESET TESTING & 
+ #8 sz TESTING OF READ/WRITE BIT MTDATA 
1842 pedeeeeeeeeeeeeereetereeereeereneertareeteetereeeeeteeeeeeee 
1843 005554 04 TST26: SCOPE 
1844 005556 052777 040000 174142 BIS #ATDATA,@TXCSR ;SET THIS BIT 
1845 005564 032777 040000 174134 BIT #MTDATA,@TXCSR ;TEST THIS BIT 
1846 005572 001001 BNE +4 3BR IF "4" 
1847 005574 104004 ERROR 4 :THIS BIT SHOULD BE SET 
1848 005576 042777 040000 174122 BIC @ATDATA,@TXCSR ;CLR THIS BIT 
1849 005604 032777 040000 174114 BIT @ATDATA,@TXCSR ;TEST THIS BIT 
1850 005612 001401 Q »@ s IF ‘0 
1851 005614 ERROR 4 sTHIS BIT SHOULD BE CLR 
1838 ;NOW SET THIS BIT 
1853 005616 052777 040000 174102 BIS #ATDATA,@TXCSR 
1854 tag 052777 000400 174074 =—- BIS #MRESET,@TXCSR ;MASTER RESET 
1855 005632 032777 040000 174066 BIT #ATDATA,@TXCSR ;TEST THIS BIT 
1828 005640 001401 BEQ .%4 3 F *'0 
$44 005642 104004 ERROR 4 sCHECK OUT MASTER RESET LOGIC 
1859 :: THIS TEST VERIFYS THAT INIT (RESET) CLEARS BITS IN THE 
1360 3;RXCSR & TXCSR 
1862 tS eeeeeeeeeeeeeeeetereeeteereeeterteettenteeenereeteeereeeeeetees 
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1863 005644 000004 TST27: SCOPE 
1864 005646 012777 177777 174036 MOV #177777, @RXCSR ;SET ALL POSSIBLE BITS 
1865 005654 012777 177777 174044 MOV #177777,aTXCSR ;DITTO 
1866 005662 000005 RESET 
1867 005664 106427 000340 MTPS #340 RESTORE NON INTERRUPT STATUS 
1868 005670 017701 174016 MOV @RXCSR,RI : SAVE 
1869 005674 017702 174026 MOV aTxcse, *R2 3 SAVE 
1870 005700 105767 173245 TSTB OPTCLR ;1S THE OPTIONAL CLR JUMPER ON ? 
1871 005704 100402 BMI 1$ iY 
are 57 042701 000016 BIC #16,R1 CLR THE NON of gine: BITS 
1873 005712 042701 073000 1$: BIC #075000 :CLR ALL NON-CLEARABLE BITS 
1874 005716 005701 TST “ARE THEY ALL 02 
1875 005720 001401 BEQ i 
1876 005722 104004 ERROR 3 ALL sag 4% hy SHOULD BE CLEAR 
1877 005724 042702 002200 BIC 7002200, R2 Yong ALL NON-CLEARABLE BITS 
1878 005730 005702 TST R2 ; ARE THEY ALL 0 ? 
1879 005732 001401 Fee ae +4 
1880 57 104004 ERR 4 ;ALL oo BITS SHOULD BE CLEAR 
1881 OAT FOR CABLE DEL AYS 
1882 Peeeeeeeeeeekeeterereeetereeeeeeenteeee 
1883 [MODIFY “MOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
1884 FRRAAHAAAEKAAATEHAKAATAK KKK KKK AeAAAAAES 
1885 57 016702 173156 MOV HOLD,R2 ;SET DELAY TIME 
1886 005742 005302 DEC R2 
1887 005744 001376 BNE -2 WAIT THIS TIME 
1888 30K NOW FALL THRU AND CONTINUE VEST IMS. cccedsvess 
a4 SEXIT STAGE LEFT....CHINNNG! 
1891 zz THIS TEST PERFORMS MASTER RESET TESTING & 
1038 +s TESTING OF WRITE ONLY BIT MRESET 
1894 i sa tau alan eee ranean rams. tte 
1895 005746 000004 TST30: SCOPE 
1896 005750 052777 000400 173750 BIS WMRESET,@TXCSR ;TRY TO SET THIS BIT 
1897 005756 032777 000400 173742 BIT #MRESET,@TXCSR TEST TH 1S BIT 
1898 005764 001401 BEQ .%4 :BR IF ‘QO’ 
1899 005766 104004 ERROR 4 ;THIS BIT SHOULD NOT BE SET 
1900 005770 052777 000400 173730 BIS #MRESET,@TXCSR ;MASTER RESET 
1901 005776 032777 000400 173722 BIT #MRESET,@TXCSR ;TEST THIS BIT 
1902 001401 BEQ +4 [BR IF 1“ 
1903 006006 104004 ERROR 4 THIS BIT SHOULD NOT BE SET 
Hse ; CHECK MASTER RESET LOGIC 
ha ieee TEST VERIFYS THAT THE RXCSR & TXCSR CAN BE BYTE ADDRESSED (DATOB) 
1908 WITTTTTITITITITITITITITILITILI TLL li ilitii tii. 
1909 006010 000004 18131: SCOPE 
1910 006012 052777 000400 173706 BIS WMRESET,@TXCSR ;MASTER RESET 
1911 sivas 94 105767 173125 TSTB OPTCLR ;1S THE OPTIONAL CLR JUMPER ON ? 
1912 006024 100405 BM! 1$ 7¥ 
1913 sive srt 012777 000000 173656 MOV #0,aRXCSR ;CLR OUT NON RESETABLE BITS 
1914 0060 5777 173652 TST @RXCSR ;CLR out’ DSC BY READING RXCSR 
1915 006040 1 the 01 173646 1$: B1SB8 #B1T0 @HRXCSR :SET STRIP SYNC UPPER BYTE 
4 | Bones 01 A$ 173640 MOV RXCSR,RI RXCSR 
1917 006052 022701 00 CMP a4 MOO RI: STEST RXESR 
1918 006056 001401 BEQ .%4 
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CZDUQC.M11 20-AUG-80 09:19 INITIALIZE THE COMMON TAGS SEQ 0040 
1919 006060 104004 ERROR 4 sONLY STRIP SYNC SHOULD BE SET 
1920 006062 105077 173624 CLRB  aRXCSR :CLR LOWER BYTE 
1921 006066 017701 173620 MOV ARXCSR,R sSAVE RXCSR 
19¢¢ 006072 022701 000400 CMP #400,R1 ; TEST RXCSR 
1923 006076 001401 BEQ +4 
1924 006100 104004 ERROR 4 sONLY STRIP SYNC SHOULD BE SET 
1925 006102 052777 000400 173616 BIS WMRESET,@TXCSR ;MASTER RESET 
1926 006110 152777 000040 173612 BISB #BITS,aHTXCSR ;SET MAINT CLK UPPER BYTE 
1927 006116 017701 173604 - MOV aTXCSR,R1 :SAVE TXCSR 
1928 006122 042701 002000 BIC #BITW,R1 “CLR BIT WINDOW (DEPENDENT 
1929 ON H315 CONNECTOR EXISTANCE) 
1930 006126 022701 020200 CMP #20200,R1 sTEST TXCSR 
1931 006132 001401 BEQ +4 
1932 006134 104004 ERROR 4 sONLY MAINT CLK BIT & TXDONE SHOULD BE SET 
1933 006136 105077 173564 CLRB  aTXCSR :CLR LOWER BYTE 
1934 006142 017701 173560 MOV aTXCSR,R1 sSAVE TXCSR 
1935 006146 042701 002000 BIC #BITW,RI ‘CLR BIT WINDOW (DITTO) 
1936 006152 022701 020200 CMP #20200,R1 ‘TEST TXCSR 
1937 006156 001401 BEQ +4 
1938 006160 104004 ERROR 4 sONLY MAINT CLK BIT & TXDONE SHOULD BE SET 
1939 :;THIS TEST PERFORMS MASTER RESET TESTING & 
1940 sz; TESTING OF READ ONLY BIT BITW 
og MAINT INTERNAL 
1943 PUTT ITIITI TTT ttt ttt ttt 
1944 006162 000004 1S132: SCOPE 
bas 006164 012777 044001 173534 MOV #MINT'MTDATA!BREAK,@TXCSR sSET MAINT INT.,BREAK, 
1308 006172 032777 002000 173526 BIT #BITW,aTXCSR sTEST BITW 
1948 006200 001001 , BNE +h 
1949 006202 104004 ERROR 4 sBIT WINDOW SHOULD BE SET 
1950 006204 042777 040000 173514 BIC #MTDATA,@TXCSR 
1951 006212 013702 001132 MOV a#i132,R2 
1952 006216 005302 1$: DEC R2 
1953 006220 001376 BNE 1$ 
1954 006222 032777 002000 173476 BIT #B1TW,aTXCSR 
1955 006230 001401 BEQ +4 
1956 006232 104004 ERROR & ;BIT SHOULD BE CLR 
1957 ;NOW SET THE MTDATA 
1958 006234 052777 040000 173464 BIS #MTDATA, @TXCSR 
1959 006242 052777 000400 173456 BIS #MRESET.a@TXCSR ;MASTER RESET 
1960 006250 052777 004001 173450 BIS #MINT (BREAK ,aTXCSR 
1961 006256 013702 001132 MOV a#i132,R2 
1962 006262 005302 2$: DEC 
1963 006264 001376 BNE 2$ 
1964 006266 032777 002000 173432 BIT #B1TW,aTXCSR 
1965 006274 001401 BEQ +4 : 
1966 006276 104004 ERROR 4 sBI1TW SHOULD BE CLR BY MASTER RESET 
1967 ;THIS TEST PERFORMS MASTER RESET TESTING & 
1968 *: TESTING OF READ ONLY BIT BITW 
1969 [:MAINT EXTERNAL 
1971 ; eeeeeeeeeeeeeeererereererereeteeerernetererteeeenenetetereeeere 
1972 006300 000004 18133: SCOPE 
1973 ;TEST TO SEE IF EXTERNAL MODEM BYPASS CONNECTOR 
197% [1S ON (H315)....1F "NO JUMP AROUND TEST 





wy 
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E7DUaC M11 20-AUG-80 09:1 INITIALIZE THE COMMON TAGS SEQ 0041 
1975 006302 105767 172645 TSTB JMRBY 
1976 006306 10003 BPL 1$ ;1T IS NOT ON 
1b 14 006310 012777 050001 173410 MOV #MEXT!MTDATA'BREAK, a@TXCSR 3;SET MAINT EXT. ,BREAK, 
1979 006316 032777 002000 173402 BIT #BITW,aTXCSR ; TEST BiTw 
1980 006324 001001 BNE +4 
1981 poeass 104004 ERROR 4 ;BIT WINDOW SHOULD BE SET 
1982 006330 042777 040000 173370 BIC #ATDATA, aTXCSR 
1983 006336 032777 002000 173362 BIT #BITW,aTXCSR 
1984 006344 001401 EQ #4 
1985 006346 104004 ERROR 4 ;BIT SHOULD BE CLR 
1986 sNOW SET THE MTDATA 
1987 006350 052777 040000 173350 BIS #MTDATA,@TXCSR 
1988 006356 052777 000400 173342 BIS WMRESET,@TXCSR ;MASTER RESET 
1989 006364 052777 010001 173334 BIS #MEXT! BREAK ,@TXCSR 
1990 006372 032777 002000 173326 BIT #BITW,@TXCSR 
1991 006400 001401 BEQ +4 
1992 006402 104004 ERROR 4 ;B1TW SHOULD BE CLR BY MASTER RESET 
1993 006404 1$: 
1994 
1995 
1996 z; THIS TEST PERFORMS MASTER RESET TESTING & 
ib 044 +s TESTING OF READ ONLY BIT RXDONE 
1999 [Reeeeeeeeeeeeeeeeeeeeeeeeeeedenneneeneeeneteneeteneeneeneeeees 
2000 000004 18134: SCOPE 
2001 006406 052777 000400 173312 BIS #MRESET,@TXCSR ;MASTER RESET 
$00 006414 032777 000200 173270 BIT WRXDONE ,ARXCSR ;TEST THIS BIT 
003 006422 001401 BEQ +4 7BR IF ‘'0"' 
2004 006424 104004 ERROR 4 ;CHECK MASTER RESET LOGIC 
sit ;0R SHORT ON THIS BIT 
2007 zz THIS TEST PERFORMS MASTER RESET TESTING & 
ste 3; TESTING OF READ ONLY BIT RECACT 
2010 Ae eeeeeeeeeneeeeeeeeeneeeeeeeeneeneeeeeeeeeeeeeereeeteneeeeee 
2011 006426 000004 TST35: SCOPE 
2012 006430 052777 000400 173270 BIS #MRESET,@TXCSR ;MASTER RESET 
2013 006436 032777 004000 173246 BIT WRECACT,@RXCSR ;TEST THIS BIT 
2014 006444 001401 BEQ +4 7BR IF ‘'O0"' 
201 006446 104004 ERROR 4 sCHECK MASTER RESET LOGIC 
sate ;0R SHORT ON THIS BIT 
2018 7; THIS TEST PERFORMS MASTER RESET TESTING & 
a4 2s TESTING OF READ ONLY BIT DSC 
2021 WITTTTITITITITITITILITITLL LLL LLL iLL 
2022 006450 000004 18136: SCOPE 
2023 006452 052777 000400 173246 BIS #MRESET,@TXCSR ;MASTER RESET 
2024 006460 032777 100000 173224 BIT #0SC ,@aRXCSR sTEST THIS BIT 
2025 006466 001401 BEQ +4 BR IF ‘'0"' 
2026 006470 104004 ERROR 4 sCHECK MASTER RESET LOGIC 
2038 ;0R SHORT ON THIS BIT 
029 :; THIS TEST PERFORMS MASTER RESET TESTING & 


2030 73 TESTING OF READ ONLY BIT TXDONE 
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173160 
titgo: 
T5142: 
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ZE THE COMMON TAGS 


ITITITITITITITILLI TTT i LTT titi Til 


OPE 
BIS - #MRESET,@TXCSR ;MASTER RESET 
BIT ATXDONEATXCSR TEST THIS BIT 


BN -* ;8R 

ERROR 4 ; CHECK mister RESET LOGIC 
HORT ON THIS BIT 

ssTHIS TEST PERFORMS MASTER fad TESTING & 

+s TESTING OF READ ONLY BIT DNA 


cheeeeeeeeererereeeertereeeeneeeeeetennteneeeeeneneeerene 

SCOPE 

BIS WMRESET,@TXCSR ;MASTER RESET 

BIT #ONA, aTKCSR ;TEST THIS BIT 

BEQ .*4 ;BR IF *'0"’ 

ERROR 4 ;CHECK MASTER RESET LOGIC 
;OR SHORT ON THIS BIT 


s3THIS TEST PERFORMS MASTER RESET TESTING & 
¢ TESTING OF READ ONLY WORD RECEIVE DATA 


MITTTTTITITITITITILITILITT LILI LiL tii itil 


BIS moet AS ;MASTER RESET 


MOV [FOR ERROR MESSAGE 
MOV FRO EXPECTED 

MOV SRxD6UF R1 ACTUAL 

CMPB ss RO, R11 

BEQ +4 BR IF ‘0° 


ERROR 2 REC DATA SHOULD BE ALL 1°S 
;:THIS TEST PERFORMS MASTER RESET TESTING & 
+s TESTING OF READ ONLY BIT PARER 


WOTITITITITITIIIII TITTLE iii titi iis 

SCOPE 

BIS WMRESET,@TXCSR ;MASTER RESET 

BIT #PARER,@RXDBUF ; TEST THIS BIT 

BEQ +4 :BR IF 

ERROR 4 ;CHECK MASTER RESET LOGIC 
;OR SHORT ON THIS BIT 


3; THIS TEST PERFORMS MASTER tS TESTING & 
¢ 3 TESTING OF READ ONLY BIT FRMERR 


WITTITITITILILI TILL LLLLLLLLtLtiiiii tii iid 

SCOPE 

BIS #MRESET,@TXCSR ;MASTER RESET 

BIT #FRMERR,@RXOBUF ; TEST THIS BIT 

BEQ +4 7BR IF ‘0°’ 

ERROR 4 ;CHECK MASTER RESET LOGIC 
;OR SHORT ON THIS BIT 


i: THIS TEST PERFORMS MASTER RESET TESTING & 
i; TESTING OF READ ONLY BIT OVRRUN 


SEQ 0042 


E 4 
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C2puaC. M11 20-AUG-80 09:1 INITIALIZE THE COMMON TAGS SEQ 0043 
2087 REERARREARA EAE EETE REA AE ATER AAAEAEAAAAAARERAAAAAAAAAAEEHRAEEE 
2088 006634 000004 t§t44: SCOPE 
2089 006636 052777 000400 173062 BIS WMRESET,@TXCSR ;MASTER RESET 
2090 006644 032777 040000 173044 BIT #OVRRUN , @RXOBUF sree THIS BIT 
2091 006652 001401 BEQ +4 ;BR 
2092 006654 104004 ERROR 4 cs MASTER RESET LOGIC 
akg ;0R SHORT ON THIS BIT 
2095 37 THIS TEST PERFORMS MASTER RESET TESTING & 
$009 3; TESTING OF READ ONLY BIT RXERR 
2098 PPUTIIIIITIII IIIT IIIT ITT TILT T TTI Titi titi it ititi titi iii ti iii iii t 
2099 006656 000004 TST45: SCOPE 
2100 006660 052777 000400 173040 BIS WMRESET,@TXCSR ;MASTER RESET 
2101 006666 032777 100000 173022 BIT MRXERR,ARXDBUF ;TEST THIS BIT 
006674 001401 BEQ +4 :BR IF ‘'0"' 
006676 104004 ERROR 4 ;CHECK MASTER RESET LOGIC 


;OR SHORT ON THIS BIT 


3; THIS TEST VERIFYS THAT THE DEVICE REGISTER RXCSR 
3:18 CLEARED BY MASTER RESET 


; FRRAAARAAAEAAAEAAAAREAAAEAEAAAAAAAAAAAAAERARAAAARARAAAAKARARAAA EE 


006700 000004 TST46: SCOPE 
006702 


012777 177777 173002 MOV #177777, a@RXCSR ;SET ALL POSSIBLE BITS 
006710 052777 000400 173010 BIS #MRESET.a@TXCSR :MASTER RESET 
006716 016703 172770 MOV RXCSR,RS :FOR ERROR AHESSAGE 
006722 017701 172764 MOV @RXCSR,RI [SAVE ACTU 
006726 105767 172217 TSTB OPTCLR sTEST THE ob CLR JUMPER FLAG 
006732 100010 BPL 1$ ‘NO ITS NOT IN 
734 042701 173000 BIC #173000,R1 ?CLR NON-MASTER RESETTABLE 
sBITS(SINCE THESE ARE DEPENDENT ON H315 CONNECTORS EXISTANCE) 
006740 012700 000000 MOV #0,RO EXPECTED 
006744 020001 CMP RO.R1 EXPECTED VS ACTUAL 
006746 001401 BEQ .+ 
006750 104001 ERROR 1 ;ALL MASTER RESETABLE BITS SHOULD BE CLR 
006752 000407 BR 2$ id AROUND 
042701 173000 1$: BIC #173000,R1 NON-MASTER RESETABLE 
TBITSCSINCE rwesé a DEPENDENT ON Aste CONNECTORS EXISTANCE) 
006760 012700 000016 MOV g T 
006764 020001 CMP RO.R1  s EXPECTED VS ACTUAL 
006766 001401 BEQ +4 
006770 104001 ERROR 1 sONLY STD,RTS,DTR BITS SHOULD BE SET 


NOTE THAT STD_IS READ =1 INDEPENDENT OF 
SEC XMIT #6 STRAP 


sWAIT FOR CABLE DELAYS 
peeeeeneeeteeeeeeeerererenennnatereeeee 

MODIFY “HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
seeeeeeeeeeereeeeeerereneereneeneneeter 

006772 016702 172122 MOV HOLD,R2 ;SET DELAY TIME 

006776 005302 DEC R2 

007000 001376 BNE -2 WALT THIS TIME 

0K NOW FALL THRU AND CONTINUE PEST ING .cccccccces 

SEXIT STAGE LEFT....CHINNNG! 


006772 2$: 


POPDPIPIPONONIPOPIPYRIPD NOP PIPPI PU NPINPUNIPIPINPIPI PPI NPYNPYININPI NMI NPUNPU MPU MPU POPPY 
pe i i ir ir ar ar ir ir ir ir ir ir ir ir lr iar ar ir ar a er ir ir ir er ir ir er ir er er Ser Sr er rr Sr er 
BFW WWIII NININININNNIND — 2 9 OO MM OOOO COOoOO 

~ 

ww 

= 


va: pane pe 
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007002 


cD ee cD ee ce ed wd ed 
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SSRSSVSSRLSSRAVVS IBID AA ASSSLSSLENSSSSISAFUNLS oe 
i= 
oS 
“ 
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—“ 
oa 


007072 


007074 


007114 


el el el elt el el lc cel el el el el el le ee De ee ee ed ed ed ed ed ed ed 


PROPOPOP EA PONPOPOPYPOPY PUNIPININI NI NONI NIPIPI PINIPINININININPIPININPI NI NIP PO PY PON PY PUP PPO NoN NN nn 
oo 
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104002 


000004 
005077 
052777 


105767 
100402 


000167 
016703 


104001 
052777 


000200 


000400 
0 


000377 


172610 
000400 
172037 
000652 


172564 
172560 


000002 


172654 


172616 


172542 


09-SEP-80 PAGE 48 
INITIALIZE THE COMMON TAGS 


si THIS TEST VERIFYS THAT THE DEVICE REGISTER TXCSR 


ee 
MPR SRARBERELALLLALLSESLAL ASA LARA SELES ESE REESE RRR ARR RRR RRR RAR ARDS 


;SET ALL POSSIBLE BITS 


1$147: 


WITTTTITITITITITILLLI TILL LLL TLL LLL LLL 


i$T50: 


MTTITTITITITITITILITT LLL L LL T LLL 


TST51: 


4 
10:57 


:31S CLEARED BY MASTER RE 


SCOPE 
MOV #177777 ,aTXCSR 


SET 


BIS #MRESET,@TXCSR ;MASTER RESET 


MOV TXCSR,RS 
MOV aTXCSR,R1 
MOV #200 RO ; EXPECTED 


;FOR ERROR MESSAGE 


SAVE ACTUAL 


CHP RO/R Ri EXPECTED VS ACTUAL 
ERROR 1 sONLY TXDONE SHOULD BE SET 


33 THIS TEST VERIFYS THAT THE DEVICE REGISTER RXDBUF 


ie CLEARED BY MASTER RE 


SET 


BIS #MRESET,ATXCSR He RESET 


MOV RXDBUF ,R3 
MOV @RXOBUF ,R1 


:S 
MOV #377,RO ;EXPECTED 


CHP RO, Ri ‘EXPECTED VS ACTUAL 
ERROR 2 :ONLY REC DATA BITS SHOULD BE SET 


;;THIS TEST VERIFYS BITS 


;3ALSO DSC _IS ete cnete ANY OF 


3;0R CLEARED.....1T 
7: JUMPER AND THAT THESE B 


FOR ERROR MESSAGE 
AVE 


RING, CTS, CARDET,SRD 


HECKS THE MODEM BYP 
ITS CAN 


BE READ 
+ sNOTE: THE MODEM BYPASS JUMPER MUST BE ON (H315) 


SCOPE 


CLR @RXCSR_ ;TO GET RID OF ee ares -DTR IF OPTCLR JUMPER #4 IS NOT ON 


BIS WMRESET,@TXCSR ;MASTER R 


TEST THAT A "ves" ANSWER WAS GIVEN TO QUESTION IN 
IF THE EXTERNAL BYPASS 


;THE MONITOR OR BY DEFA 


UL 
THIS TEST WILL BE BYPASSED 


;JUMPER IS NOT INSTALLED 
TSTB 


JMRBY 

BMI - +6 : THE ANSWER WAS yes eeces 
; PERFORM THIS TEST 

JMP our : JUMP AROUND THIS TEST IF THE ANSWER 
MOV RXCSR,R3. ;SET UP FOR ERROR MESSAGE 
MOV @RXCSR,R1 ; ACTUAL 
CLR RO s EXPECTED 
TST R1 718 IT = 0? 
BEQ +4 
ERROR 1 ;RXCSR SHOULD otk CLR 


RXCSR :SET D 
YS 


BIS #OTR,ORX 
;WAIT FOR CABLE DELA 


peteeereerereerererererere 


[MODIFY "'HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


peteereeeeerertetrerterene 


Reaeeeeraereere 


Reeaetereeaeee 


DSR 
THE SE gifs ARE SET 
ASS 


SEQ 0044 
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uQc .m11 20-AUG-80 09:19 INITIALIZE THE COMMON TAGS SEQ 0045 


09g 


007150 016702 171744 MOV HOLD,R2 ;SET DELAY TIME 
007154 005302 DEC R2 
;WAIT THIS TIME 


007156 001376 BNE 72 ; 

;0K NOW FALL THRU AND CONTINUE TESTING..........- 
;EXIT STAGE LEFT....CHINNNG! 
MOV RXCSR,R 


Wwr—o 


007160 017701 172526 @RXCSR,R1 ; ACTUAL 
007164 012700 130002 MOV #130002,R0 ;DSC,CTS,CARDET,DTR 
007170 020001 CMP — sEXPECTED VS ACTUAL 

+ 


, “CHECK BYPASS CONNECTOR 
007176 017701 172510 MOV @RXCSR,RI s ACTUAL 
007202 012700 030002 MOV #30002,R0 *CTS,CARDET,DTR 
0072 020001 CMP ts sEXPECTED VS ACTUAL 
+ 


BEQ A 

007212 104001 ERROR 1 PREVIOUS READING OF RXCSR SHOULD 

;HAVE CLEARED DSC 

007214 052777 000004 172470 BIS #RTS ,ARXCSR 
WAIT FOR CABLE DELAYS 
RRRRAHRAEERAAAA TATA T Tee e AKA eeKeneeeee 
s;MODIFY “‘HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
RRAReeeeeeeeeeeeeteeeeeeeerteeenereeee 


007222 016702 171672 MOV + peal ;SET DELAY TIME 


007226 005302 DEC 
007230 001376 BNE -* ;WAIT THIS TIME 

30K NOW FALL THRU AND CONTINUE TESTING........... 
sEXIT STAGE LEFT....CHINNNG! 
MOV @RXCSR,R1 
007236 012700 170006 MOV #170006 ,R0 ;DSC,RING,CTS,CARDET,RTS,DTR 
007242 020001 CMP ai sEXPECTED VS ACTUAL 

+ 


007246 104001 ERROR 1 “CHECK BYPASS CONNECTOR 
007250 017701 172436 MOV ARXCSR,RI 
007254 012700 070006 MOV #70006 ,RO sRING, CTS, CARDET,RTS,DIR 
007260 920001 CMP RO, RI sEXPECTED VS ACTUAL 

x 
007264 104001 ERROR 1 sPREVIOUS READING OF RXCSR SHOULD 

SHAVE CLEARED DSC 

007266 105767 171655 TSTB  SEXMIT :1S SEC XMIT JUMPER IN ? 
007272 100112 BPL OUT2  =;:N 
767 171650 TSTB SEREC ;1S SEC REC JUMPER IN ? 


007232 017701 172454 


DONA VNLWN SO DOONOUS WN —OVOnoOu' 
~ 
_ 
~ 
=> 
—_ 
Oo 
Pa 
Oo 
oOo 
—_ 
inal 
z 
Zz 
Oo 
xz 
— 


MIPIPIPINPIPI NPI NPI NINPINN PNP NPNMNMNNMNNMNMNMNMNNVNN— 


POPIPIPINPINIPINPINPIPIDINIPIPIPY NONI PUNY NY NO NPOMY PY NPN Po Pyro nr nrnrrvnrnrvnrvvvvNvnwT 
Mrmr 


SSSIEAFUS AS 


2243 MODIFY ""HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2244 seeeeeeeeeeteretreeterreeteeeeeeetereee 
007310 6702 171604 MOV HOLD,R2 ;SET DELAY TIME 
2246 007314 005302 DEC R2 
007316 001376 BNE 272 WAIT THIS TIME 
2248 30K NOW FALL THRU AND CONTINUE TESTING..........- 
2249 sEXIT STAGE LEFT....CHINNNG! 
6 MOV @RXCSR RI 
6 MASK1: MOV = #173016,RO :DSC.RING. CTS, CARDET ,SRD.DSR 


007330 020001 CMP RO,R1  ;EXPECTED VS ACTUAL 


| 

1 : 

777 +000010 172402 S #STD ,ARXCSR 

2241 WAIT FOR CABLE DELAYS 

2242 peeeeeereterrreerrrteetteeneeeereeeeeee 
254 007332 001/11 BEQ «wd 


poe ee 
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104001 
017701 
012700 


020001 
001401 
104001 


042777 


016702 
005302 
001376 


017701 
012700 


042777 


016702 
005302 
001376 


017701 
012700 
020001 
001401 
104001 
042777 


172350 
073016 


000002 


171532 


000004 


171476 


000010 


171442 


172224 


100000 


172206 
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INITIALIZE THE COMMON TAGS 


ERROR “ acne BYPASS CONNECTOR 
MOV #73016,RO 


cup ROI sEXPECTED VS ACTUAL 
+ 
ERROR j : PREVIOUS READING OF RXCSR SHOULD 
iMAV VE CLEARED DSC 

BIC #DTR,ARXCSR 

;WAIT FOR CABLE DELAYS 

FERRARA EEAEEEAEAAEERARERERERR ANE 

“MODIFY "'HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER 
FRRAAAAAAEAAEAAT ERA HEEAERAAAAERAAARRAEE 


MoV + aa »R2 ;SET DELAY TIME 


DEC 
BNE 272 WAIT THIS TIME 

30K NOW FALL THRU AND roll aay TESTING. ....ceeeee 
;EXIT STAGE LEFT....CHINNNG! 


MOV @RXCSR . 
;DSC,RING,SRD,DSR,STD,RTS 
ae RO,R1 "EXPECTED VS ACTUAL 
+ 

ERROR 1 ;0SC SHOULD BE SET 
BIC #RTS ,ARXCSR 

;WAIT FOR CABLE DELAYS 

FERRARA AAAAEAAEAEERAAAAREARKERARES 

MODIFY “HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER 
FRRAAAAAAHAAAEAAAAAAATAEAAAAAHAARAERRES 


MOV HOLD,R2 ;SET DELAY TIME 
DEC R2 


BNE =2 sWAIT THIS TIME 
OK NOW FALL THRU AND CONTINUE TESTING........... 
TEXIT STAGE LEFT, . «CHINNNG ! 
MOV @RXCSR,RI 
MOV #103016,R0 :DSC,SRD,DSR,STD 
CAP RO RI sEXPECTED VS ACTUAL 


ERROR i ;0SC SHOULD BE SET 

BIC #STD,ARXCSR 

WAIT FOR CABLE DELAYS 
seeeeeeeeereereetererereeeenenerrenener 

MODIFY "‘HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER 


seeeeerereerererererereeeeaeeareraneeese 


mov a oR2 ;SET DELAY TIME 


DEC 
BN 72 ;WALT THIS TIME 

OK NOW FALL THRU AND CONTINUE TESTING........... 
EXIT STAGE £5" Levent NNG! 


MOV a XCSR 

MOV #100006, RO DSC 

CHP nom sEXPECTED VS ACTUAL 
ERROR 1 -DSC SHOULD BE SET 
MOV ARXCSR,RI 

CLR RO NONE 

TST RI 


SEQ 0046 


;RING ICTS, CARDET, SRD,DSR,STD 


MACHINE 


MACHINE 


MACHINE 





r- 





Dar 
WAIT FOR CABLE DELAYS 


seeeeeeretererereeertrrereaeeeKeneenene 
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CZDUQC.M11 20-AUG-80 09:19 INITIALIZE THE COMMON TAGS SEQ 0047 
2311 007510 001401 BEQ +4 
3312 007512 104001 ERROR 1 :DSC SHOULD BE CLEARED FROM PREVIOUS 
231 EREADING | OF XCSR 
2314 007514 000167 000254 ouT1 : JUMP 
2315 THE FOLLOWING ROUTINE vANDLES THe NS ITUATION WHERE SEC XMIT 
2316 [AND SEC REC JUMPERS ARE NOT 
2317 007520 052777 000010 172164 OuT2: BIS #STD,@RXCSR 
2318 ;WAIT FOR CABLE DELAYS 
2319 PRAHA HHHAAHee eee eee eKeKeKeKeKeeAeee 
2320 ‘MODIFY "'HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2321 PRAHA AAAAKKKKK HHA AAEKeKeKeKeRAKAAeKHHe 
2322 007526 016702 171366 MOV HOLD,R2 ;SET DELAY TIME 
2323 007532 005302 DEC R2 
2324 007534 001376 BNE -2 WAIT THIS TIME 
2325 ;0K NOW FALL THRU AND CONTINUE TESTING....ssse0cs 
2326 sEXIT STAGE LEFT....CHIN NNG 
2327 007536 017701 172150 MOV @RXCSR, yACTUAL 
2328 007542 012700 070016 MOV #70016.RO x XPECTED: RING ,CTS,CARDET,STD,RTS,DITR 
2329 007546 020001 CMP RO,R1 | ;EXPECTED VS ACTUAL 
2330 007550 001401 BEQ +4 
2331 007552 104001 ERROR 1 sCHECK SEC XMIT & SEC REC JUMPERS 
2332 007554 042777 000004 172130 BIC #RTS ,ARXCSR 
2333 ;WAIT FOR CABLE DELAYS 
2334 FRR RAAAAAEEAAAARAAAREHAAAHEAAAAREREKEEE 
2335 [MODIFY "'HOLD:"' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2336 SRRARAAAAAAEEAEA RAAT AEERARAAAEAARAREERES 
2337 007562 016702 171332 MOV HOLD,R2 ;SET DELAY TIME 
2338 007566 005302 DEC R2 
2339 007570 001376 BNE .-2 sWAIT THIS TIME 
2340 :0K NOW FALL THRU AND CONTINUE TESTING........... 
2341 sEXIT STAGE LEFT....CHINNNG! 
2342 007572 017701 172114 MOV @RXCSR,RI ACTU 
2343 007576 012700 130012 MOV #130012,R0 DSC, CTs. CARDET,DTR, STD 
2344 :NOTE THAT DSC STILL ASSERTS EVEN THO THE SEC XMIT JUMPER # 6 IS NOT ON 
2345 007602 020001 CMP RO,R1  ;EXPECTED VS ACTUAL 
2346 007604 001401 BEQ +4 
2347 007606 104001 ERROR 1 :CHECK BYPASS CONNECTOR 
2348 007610 042777 000002 172074 BIC #DTR,ARXCSR 
2349 sWAIT FOR CABLE DELAYS 
2350 FRRAAHAAAAAAAAAAARAAAAAAAAKAAARAAAKEEES 
2351 [MODIFY "'HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 
2352 PRURAAAHAAAARATTAAATA TATA AEE 
2353 607616 016702 171276 MoV HOLD,R2 ;SET DELAY TIME 
2354 007622 005302 DEC R2 
2355 007624 001376 BNE -2 sWAIT THIS TIME 
2356 :0K NOW FALL THRU AND CONTINUE TESTING........... 
2357 sEXIT STAGE LEFT....CHINNNG! 
2358 007626 017701 172060 MOV @RXCSR,R1 s ACTUAL 
2359 007632 012700 100010 MOV #100016,R0 DSC,STD 

360 007636 020001 CMP RO.R1 EXPECTED VS ACTUAL 
3361 007640 001401 BEQ w+ 
36 007642 104001 ERROR 1 ONLY DSc & t. STD SHOULD BE SET 

336 007644 000167 000124 JMP OUT! i JURP A 
2364 007650 052777 000010 172034 ouT3: 81S ast 
2366 
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PAGE 52 
INITIALIZE THE COMMON TAGS 
sMODIFY ‘'HOLD:*’ ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


SRRAAHAAAAEEAAAAAA AERA TAAEARAAAAAAAEE 


MoV HOLD,R2 ;SET DELAY TIME 
DEC R2 


NE =2 WALT THIS TIME 
K NOW FALL Tard AND CONTINUE WRG ada ccsnnde 
AST, STAGE LEFT....CHINNNG! 
MOV @RXCSR,RI ACTUAL 
MOV #171016, RO EX PECTED: DSC,RING,CTS,CARDET,DSR,STD,RTS,DTR 
CMP RO,RI sEXPECTED VS ACTUAL 
+ 


B ° 
ERROR 1 ;CHECK SEC REC JUMPER 
BIC #RTS ,ARXCSR 
WAIT FOR CABLE DELAYS 
PRRRRAAKATHE REA TEK eee Ree eK AKAeAAeEeE 
:MODIFY "'HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


FRRAARARAAAAAARAAAAAAAAAAEAAEERRERAARRER 


MOV ERO 3 :SET DELAY TIME 


DEC 
BNE 272 sWAIT THIS TIME 

30K NOW FALL THRU AND CONTINUE TESTING........... 
EXIT ot icte gf .» CHIN poe 5 
MOV #1310 gis. RO EXPECTED: DSC,CTS,CARDET,DSR,STD,DTR 
CMP =o ;EXPECTED VS ACTUAL 


.+ 
ERROR 1 ;CHECK H315 CONNECTOR 
BIC #OTR,@RXCSR 
;WAIT FOR CABLE DELAYS 
PURRARKATAA AAA TAA eee eee teAeeAAeeAeeeeee 


:MODIFY “'HOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE 


PRReReeeeeeeeeeeeeeeeeeeeeeeekeeereeeee 

hoy hte SET DELAY TIME 

B WAIT THIS TIME 

;0K NOW FALL THRU AND CONTINUE TESTING........... 
EXIT STAGE LEFT....CHIN i 

MO SR . 


1 ie PEC TED: DSC,DSR,STD 
RO,R1 + NEXPECTED VS ACTUAL 


BEQ . 
ERROR 1 ;CHECK H315 CONNECTOR 


OUT1: 


se THIS TEST VERIFYS THAT RECACT (REC pt het ASSERTS 
ED. WHEN SYNC EXTERNAL MODE IS SELECTED 
3 SAND SYNC SEARCH IS SET 


MTTTTTTTTITITITITITITITITITTTTTTTTTTTTITTTTT TTI TiTititit iii 
+8152: SCOPE 
BIS #MRESET,@TXCSR ;=MASTER RESET 
MOV #SYNEXT,@PARCSR :SET THE MODE 
BIS #MRESET.a@TXCSR :MASTER RESET 


;SET MAINT DATA,CLK,BREAK ,SMAINTENANCE MODE 
MOV #ATOATA!CLK MINT (BREAK, @TXCSR 


SEQ 0048 
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2423 
2426 :SET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 
2425 010026 012777 026026 171666 MOV #SYNEXT EIGHT 'NOPAR! 26, @PARCSR 
2426 010034 032777 004000 171650 BIT #RECACT ,aRXCSR 
2427 010042 001401 BEQ +4 
2428 010044 104004 ERROR & :RECACT SHOULD NOT BE SET 
2429 010046 052777 000020 171636 BIS #SYNSCH,@RXCSR SET SYNC SEARCH 
2430 010054 032777 004000 171630 BIT #RECACT -aRXCSR 
2431 010062 001001 BNE +h 
2432 010064 104004 ERROR & :RECACT DID NOT ASSERT 
2433 010066 042/77 000020 171616 BIC #SYNSCH,@RXCSR :DROP SEARCH SYNC 
2434 010074 032777 004000 171610 BIT #RECACT.@RXCSR :1S IT =0? 
2435 010102 001401 BEQ +h 
2436 010104 104004 ERROR 4 sRECACT SHOULD BE 0 
2438 s:THIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS 
2439 SIMMED. WHEN ISOCRONOUS MODE IS SELECTED 
ore 3 3 AND SYNC SEARCH IS SET 
2442 pp eeeeeeeeeteeeeeneeeeteeeeeteeeeeerteeeneneeentereeeeeeneteaeene 
2443 010106 000004 1S153: SCOPE 
244m 010110 052777 000400 171610 BIS #MRESET,@TXCSR ;MASTER RESET 
2445 010116 012777 000000 171576 MOV #ISYMOD,@PARCSR :SET THE MODE 
2446 010124 052777 000400 171574 BIS #MRESET.aTXCSR :MASTER RESET 
2448 :SET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
2449 010132 012777 064001 171566 MOV #MTDATA! CLK! MINT !BREAK, @TXCSR 
451 sSET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 
2452 010140 012777 006026 171554 MoV #1SYMOD 'EIGHT 'NOPAR! 26, @PARCSR 
2453 010146 032777 004000 171536 BIT PRECACT, |RXCSR 
2454 010154 001401 BEQ +4 
2455 010156 104004 ERROR & :RECACT SHOULD NOT BE SET 
2456 010160 052777 000020 171524 BIS #SYNSCH,@RXCSR :SET SYNC SEARCH 
2457 010160 032777 004000 171516 BIT #RECACT .@RXCSR 
2458 010174 001001 BNE +4 
2459 010176 104004 ERROR 4 :RECACT DID NOT ASSERT 
460 010200 042777 000020 171504 BIC #SYNSCH,@RXCSR :DROP SEARCH SYNC 
010206 0 004000 171476 BIT #RECACT.A@RXCSR :1S IT =0? 
0102 BEQ +4 
0102 ERROR 4 sRECACT SHOULD BE 0 


seventy i By DETECT & DATA RDY FLAGS BY PUMPING 
TWO * SYNC CHARS THRU MAINT DATA BIT 

i sMATCH RECA CT BIT 

:30N T HE THIRD * tees IT SHOULD SET RXDONE 
DEPENDENT ON MONITOR.......-s0005 

iit ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
AKE ONE SYNC CHA wre} is FOR RXDONE TO ASSERT 

Sf ON THE SECOND CHARACTER 

: ALSO CHECK THIS CHARACTER IN RXDBUF 
AND CHECK ag sy OF SYNSCH 

77MODE: SYNC INTERN 

7 LENGTH:FIVE 


ee 
ppeeeeeeeeeaeeeretrrtereeertrtetteeeeeneeeeteeeeneneteeeeeesenere 


SEQ 0049 
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CZDUQC.M11 = 20-AUG-80 09:19 INITIALIZE THE COMMON TAGS SEQ 0050 
2479 010220 000004 TST54: SCOPE 
2480 010222 052777 000400 171476 BIS WMRESET,@TXCSR ;:MASTER RESET 
2481 010230 012777 030000 171464 MOV #SYNINT,@PARCSR :SET THE MODE 
482 010236 052777 000400 171462 BIS WMRESET,@TXCSR :MASTER RESET 
2484 ;SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE 
2485 010244 012777 064001 171454 MOV #MTOATA'CLK!MINT !BREAK, @TXCSR 
2487 ;SET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 
2488 010252 012777 030026 171442 MOV #SYNINT! FLVE 'NOPAR! 26, @PARCSR 
2489 010260 016703 171432 MOV RXDBUF , sSET UP FOR ERROR MESSAGE 
2490 010264 052777 000020 171420 BIS #SYNSCH,@RXCSR SET SYNC SEARCH 
2491 F sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
2492 010272 042777 %20000 171426 BIC #CLK,@TXCSR :POKE CLK DOWN 
2493 010300 052777 020000 171420 BIS #CLK,aTXCSR “POKE CLK UP 
2494 :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
2495 010306 042777 020000 171412 BIC #CLK ,aTXCSR :POKE CLK DOWN 
2496 010314 052777 020000 171404 BIS #CLK aTXCSR :POKE CLK UP 
2497 010322 012767 000002 170574 MOV #2, COUNT 
2498 010330 012767 000005 170564 13: MOV #5, SHIFT :# OF SHIFTS 
2499 010336 012767 000026 171134 MOV #26, $TMP1 ‘SYNC CHARACTER 
2500 010344 004767 006554 JSR PC ,RPOKE 
2501 010350 005367 170550 DEC 
2502 010354 001403 BEQ 2$ 
2503 ;TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
2504 010356 105767 170564 TSTB - SYNCNO 
2505 010362 100762 BMI 1$ :TWwO SYNC CHARS 
2506 010 105777 171322 2$: TSTB  @RXCSR ;CHECK REC DONE BIT 
2507 010370 100001 BPL +4 
2508 010372 104004 ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 
2509 010374 032777 004000 171310 BIT #RECACT,@RXCSR 
2510 010402 001001 BNE +4 
2511 010404 104004 ERROR 4 sRECACT SHOULD BE ASSERTED 
2512 0104606 012767 000005 170506 MOV #5, SHIFT 
2513 010414 012767 000021 171056 MOV #24,$TMP1 sANY CHARACTER 
2514 010422 004767 006476 JSR PC ,RPOKE 
2515 010426 105777 171260 TSTB  @RXCSR ;CHECK RXDONE 
2516 010432 100401 BMI +4 
2517 010434 104004 ERROR 4 ;RXDONE SHOULD BE ASSERTED 
2518 010436 032777 004000 171246 BIT #RECACT, @RXCSR 
2519 010444 001001 BNE +4 
2520 010446 104004 ERROR 4 sRECACT SHOULD STILL BE ASSERTED 
$31 010450 042777 000020 171234 BIC #SYNSCH,@RXCSR ;CLR SYNC SEARCH 
2522 010456 032777 004000 171226 BIT #RECACT.@RXCSR :1T SHOULD DROP IMMEDIATELY 
2523 010464 001401 BEQ +4 
252% 010466 104004 ERROR 4 ;RECACT SHOULD BE CLR 
365 010470 105777 171216 TSTB @RXCSR ;RXDONE 
326 010474 100401 BMI +4 
2527 010476 104004 ERROR 4 sRXDONE SHOULD STILL BE ASSERTED 
$256 10500 org 780 000021 Vv #21,R0 ;EXPECTED DATA 
329 10504 ot 701 171206 MOV @RXOBUF RI sACTUAL DATA 
530 010510 020001 CMP RO,.R1 ;COMPARE EXP VS ACT 
531 ot 512 001401 BEQ Re 
5 10514 104002 ERROR 2 sDATA CHARS SHOULD COMPARE 
53 4 316 105777 171170 TSTB  @RXCSR ;CHECK RXDONE 
534 010522 100001 BPL +4 


GALA AAA RGN AAR GRRE LP PSE FFL pence eRe 
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GE 
CZDUQC.M11 - 20-AUG-80 09:19 INITIALIZE THE COMMON TAGS SEQ 0051 
2535 010524 104004 ERROR 4 *RXDONE SHOULD BE CLR FROM 
2336 sPREVIOUS READING OF RXDBUF 
2538 +s VERIFY THE MATCH DETECT & DATA RDY ‘un BY PUMPING 
2539 ;IN TWO * SYNC att HARS THRU MAINT DATA BIT 
2540 :: WATCH THE RECA 
2541 +3 0N THE THIRD *& CT URRACTER IT SHOULD SET RXDONE 
2542 z7%: DEPENDENT ON MONITOR........ce00. 
2543 ‘TIF ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
2544 +3 TAKE ONE SYNC perry is FOR RXDONE TO ASSERT 
2545 N THE SECOND CHARACTER 
2546 : ALSO CHECK THIS CHARACTER . RXDBUF 
2547 ::AND CHECK OPERATION OF SYNSCH 
2548 s;MODE: SYNC INTERNAL 
$200 ;sLENGTH: SIX 
2551 : iY OTST TTTTTTTTTTTTETITITITITITITITITITITTITTI LITT) 
2552 010526 000004 T$155: SCOPE 
2553 010530 052777 000400 171170 BIS #MRESET,@TXCSR ;MASTER RESET 
2554 010536 012777 030000 171156 MOV #SYNINT,@PARCSR :SET THE MODE 
$322 010544 052777 000400 171154 BIS #MRESET,@TXCSR ;MASTER RESET 
2557 7SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE 
$226 010552 012777 064001 171146 MOV #MTDATA!CLKIMINT BREAK, aTXCSR 
2560 :SET MODE ,# OF BITS.PARITY SENSE, nos pres REG 
2561 010560 012777 032026 171134 MOV #SYNINT: SIX! NOPAR 26 ,8P 
$268 010566 016703 171124 MOV XDBUF Re 3SET U e FGn "ERROR MESSAGE 
2563 010572 052777 000020 171112 BIS pists SCH,aRXCSR :SET SYNC SEARCH 
2564 ;POKE CLK TO GET RECEIVER INTO 4 pate 
2565 010600 042777 020000 171120 BIC #cLK atx CSR ;POKE CLK DOWN 
2566 010606 052777 020000 171112 BIS #CLK.aTXCSR *POKE CLK UP 
2567 ;POKE CLK TO GET LOGIC INTO SYNCRONL ZATION 
2568 010614 042777 020000 171104 BIC #CLK,a@TXCSR sPOKE CLK DOWN 
2569 010622 052777 02 171076 BIS #CLK a@TXCSR :POKE tk UP 
2570 010630 012767 000002 170266 MOV #2, COUNT 
2571 010636 012767 000006 170256 1S: MOV #6, SHIFT :# OF SHIFTS 
257¢ 010644 012767 000026 170626 MOV #26,$TMP1 “SYNC CHARACTER 
2573 010652 004767 006246 JSR PC ,RPOKE 
2574 010656 005367 170242 DEC COUNT 
2575 010662 001403 BEQ 2$ 
2576 *TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
377 010664 105767 170256 TSTB © SYNCNO 
578 010670 100762 BMI 1$ ;TwO SYNC CHARS 
2579 010672 105777 171014 23: TSTB @RXCSR > CHECK REC DONE BIT 
2580 010676 100001 BPL +4 
2581 010700 104004 ERROR 4 sRXDONE SHOULD NOT BE ASSERTED 
5 10702 032777 004000 171002 BIT #RECACT,@RXCSR 
583 01071 1001 BNE i 
584 1071 104004 ERROR sRECACT SHOULD BE ASSERTED 
585 10714 12767 170200 MOV 16 SHIFT 
586 01 732 12767 1 170550 MOV #24 Sine sANY CHARACTER 
587 Hi A 14 ates JSR S's POKE 
$88 010734 105777 170752 TSTB ARXCSR sCHECK RXDONE 
589 910740 100401 BMI +4 
590 010742 104004 ERROR 4 ;RXDONE SHOULD BE ASSERTED 
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56 
INITIALIZE THE COMMON TAGS 


BIT #WRECACT,@RXCSR 
BNE +4 


ERROR & sRECACT SHOULD STILL BE ASSERTED 
BIC #SYNSCH,@RXCSR :CLR SYNC SEARCH 
BIT WRECACT ARXCSR ; ‘IT SHOULD DROP IMMEDIATELY 
ERROR & :RECACT SHOULD BE CLR 
TSTB  @RXCSR ;RXDONE 
BMI +4 
ERROR 4 sRXDONE SHOULD STILL BE ASSERTED 
MOV #21,RO0 ;EXPECTED DATA 
MOV @RXOBUF ,R1 ;ACTUAL DATA 
CHP RO,R1 ; COMPARE EXP vs ACT 
.+ 
ERROR 2 sDATA CHARS SHOULD COMPARE 
S18 ARKCSR [CHECK RXDONE 
ERROR 4 :RXDONE SHOULD BE CLR FROM 


;PREVIOUS READING OF RXDBUF 


ss VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
3;IN TWO * SYNC Sy RS _ THRU MAINT DATA BIT 


ACT BIT 
s30N T HE THIRD * CHARACTER IT SHOULD SET RXDONE 
DEPENDENT ON MONITOR.......-0000. 
HIF ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
filo: ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
30N THE SECOND CHARACTER 
ALSO CHECK THIS CHARACTER IN RXDBUF 
;3AND CHECK OPERATION OF SYNSCH 
3;MODE: SYNC INTERNAL 
¢sLENGTH: SEVEN 


PTT ITTITTI IIIT LITT ITL ILI T iti tii iti iti iii titi itiiti iii iitiith 


S156: SCOPE 
BIS WMRESET,@TXCSR ;MASTER RESET 
MOV #SYNINT,@PARCSR ;SET THE MODE 
BIS #MRESET,@TXCSR MASTER RESET 


SET me DATA, CLK, BREAK ,@MAINTENANCE MODE 


#MTDATA! CLK! MINT !BREAK,@TXCSR 
;SET MODE .# OF BITS.PARITY SENSE Robin 2b aba SYNC REG 
MOV #SYNINT! SEVEN! RCSR 
MOV RXDBUF ,R T UP FOR ERROR MESSAGE 
BIS #SYNSCH ARXCSR :SET SYNC SEAR 
-POKE CLK TO GET RECEIVER INTO SYNCROI ATION. . 
z chk DOWN 


BIC clk at XCSR :POKE 
BIS XCSR UP 
;POKE CLK TO GET tbele. INTO SHNchONL ZATION 
BIC #CLK ,@TXCSR ;POKE 
BIS #CLK aTXCSR SPOKE tk UP 
MOV W¢ . COUNT 
1$: MOV #7. SHIFT :# OF SHIFTS 
MOV #26, STHP1 ?SYNC CHARACTER 
JSR PC ,RPOKE 


SEQ 0052 
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CZDUQC M11 20-AUG-80 09:1 INITIALIZE THE COMMON TAGS SEQ ‘0053 
2647 011164 005367 167734 DEC COUNT 
2648 011170 001403 8 
2649 -TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
2650 011172 105767 167750 TSTB  -SYNCNO 
2651 011176 100762 BMI 1$ :TwO SYNC CHARS 
2652 011200 105777 170506 2$: TSTB @RXCSR ;CHECK REC DONE BIT 
2653 011204 100001 BPL . #4 . 
2654 011206 104004 ERROR 4 sRXDONE SHOULD NOT BE ASSERTED 
2655 011210 032777 004000 170474 BIT #RECACT,@RXCSR 
2656 011216 001001 BNE +4 
2657 011220 104004 ERROR 4 sRECACT SHOULD BE ASSERTED 
2658 011222 012767 000007 167672 MOV #7, SHIFT 
2659 011230 012767 000021 170242 MOV #21,STMP1 ANY CHARACTER 
2660 011236 004767 005662 JSR PC,RPOKE 
2661 011242 105777 170444 TSTB @RXCSR ;CHECK RXDONE 
2662 011246 100401 BMI .#4 
2663 011250 104004 ERROR 4 ;RXDONE SHOULD BE ASSERTED 
2664 011252 032777 004000 170432 BIT #RECACT,@RXCSR 
2665 011260 001001 BNE +4 
2666 011262 104004 ERROR 4 :RECACT SHOULD STILL BE ASSERTED 
2667 011264 042777 000020 170420 BIC #SYNSCH,@RXCSR ;CLR SYNC SEARCH 
2668 011272 032777 004000 170412 BIT WRECACT,@RXCSR ;1T SHOULD DROP IMMEDIATELY 
2669 011300 001401 BEQ +4 
2670 011302 104004 ERROR 4 :RECACT SHOULD BE CLR 
2671 011304 105777 170402 TSTB @RXCSR =; RXDONE 7 
2672 011310 100401 M +4 
2673 011312 104004 ERROR 4 ;RXDONE SHOULD STILL BE ASSERTED 
2674 011314 012700 000021 MOV #21,RQ0 ;EXPECTED DATA 
2675 011320 017701 170372 MOV @RXOBUF ,R1 sACTUAL DATA 
2676 011324 020001 CMP RO,R1  ;COMPARE EXP VS ACT 
2677 011326 001401 BEQ +4 
2678 011330 104002 ERROR 2 ;DATA CHARS SHOULD COMPARE 
2679 011332 105777 170354 TSTB @RXCSR ;CHECK RXDONE 
2 011336 100001 BPL +4 
2681 011340 104004 ERROR 4 sRXDONE SHOULD BE CLR FROM 
ed PREVIOUS READING OF RXDBUF 
2684 z7 VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING 
2685 s7IN TWO * SYNC CHARS THRU MAINT DATA BIT 
2686 7;WATCH THE RECACT BIT 
2687 ::0N THE THIRD * CHARACTER IT SHOULD SET RXDONE 
2688 zi%: DEPENDENT ON MONITOR...........-; 
2689 z:1F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY 
2690 7; TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT 
2691 770N THE SECOND CHARACTER 
2692 zZALSO CHECK THIS CHARACTER IN RXDBUF 
2693 AND CHECK OPERATION OF SYNSCH 
2694 :;MODE: SYNC INTERNAL 
3699 : LENGTH: EIGHT 
2697 PITIIIITIITI Tt 
698 011342 000004 1S157: SCOPE 
699 011344 052777 000400 170354 BIS WMRESET,@TXCSR ;MASTER RESET 
700 011352 012777 030000 170342 MOV #SYNINT,@PARCSR ;SET THE MODE 
701 011360 052777 000400 170340 BIS #WMRESET,@TXCSR ;MASTER RESET 
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CZDUQC.M11 20-AUG-80 09: INITIALIZE THE COMMON TAGS SEQ 0054 
2703 SET MAINT DATA, cu BREAK ,GMAINTENANCE MODE 
2704 011366 012777 064001 170332 MTOATA!CLK'!MINT BREAK, @7XCSR 
2706 ;SET MODE .# OF BITS,PARITY SENSE ,GLOAD SYNC REG 
2707 011374 012777 036026 170320 MOV aSYNINT EIGHT INOPAR! 126, @PARCSR 
2708 011402 016703 170310 MOV RXDBUF ,R SET uP FOR ERROR MESSAGE 
2709 011406 052777 000020 170276 BIS #SYNSCH,@RXCSR SET SYNC SEARCH 
2710 sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION. . 
2711 011414 042777 020000 170304 BIC wCLK rATHCSR sPOKE CLK DOWN 
2712 011422 052777 020000 170276 BIS XCSR KE CLK UP 
2713 :POKE CLK TO GET ‘toele. INTO SYNCRONIZATION 
2714 011430 042777 020000 170270 BIC #CLK,aTXCSR :POKE CLK DOWN 
2715 011436 052777 020000 170262 BIS #CLK.aTXCSR :POKE LR UP 
2716 011444 012767 000002 167452 MOV. #2, COUNT 
2717 011452 012767 000010 167442 1$: MOV #8. SHIFT :# OF SHIFTS 
2718 011460 012767 000026 170012 MOV #26, $TMP1 “SYNC CHARACTER 
2719 011466 004767 005432 JSR PC, RPOKE 
2720 011472 005367 167426 DEC COUNT 
2721 011476 001403 BEQ 2$ 
2722 sTEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED 
2723 011500 105767 167442 TSTB  -SYNCNO 
2726 011504 100762 BMI 1$ :TWO SYNC CHARS 
2725 011506 105777 170200 2$: TSTB @RXCSR ;CHECK REC DONE BIT 
2726 011512 100001 BPL +4 
2727 011514 104004 ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED e 
2728 011516 032777 004000 170166 BIT #RECACT, @RXCSR 
2729 011524 001001 BNE +4 
2730 011348 104004 ERROR 4 ;RECACT SHOULD BE ASSERTED 
2731 011530 012767 000010 167364 MOV #8.,SHIFT 
2732 011536 012767 000021 167734 MOV #21.$TMP1 :ANY CHARACTER 
2733 011544 004767 005354 JSR PC, RPOKE 
2734 011550 105777 170136 TSTB  @RXCSR ;CHECK RXDONE 
2735 011554 100401 BMI +h 
2736 011556 104004 ERROR 4 ;RXDONE SHOULD BE ASSERTED 
2737 011560 032777 004000 170124 BIT #RECACT,@RXCSR 
2738 011566 001001 N +4 
2739 011570 104004 ERROR 4 sRECACT SHOULD STILL BE ASSERTED 
2740 011572 042777 000020 170112 BIC @SYNSCH,@RXCSR ;CLR SYNC SEARCH 
2741 011600 032777 004000 170104 BIT WRECACT,@RXCSR ;1T SHOULD DROP IMMEDIATELY 
2742 011606 001401 BEQ +4 
2743 011610 104004 ERROR 4 sRECACT SHOULD BE CLR 
2744 011612 105777 170074 TSTB @RXCSR ;RXDONE 
2745 011616 100401 +4 
2746 011620 104004 ERROR 4 :RXDONE SHOULD STILL BE ASSERTED 
2747 011622 012700 000021 MOV #21,RO ;EXPECTED DATA 
2748 011626 017701 170064 MOV @RXOBUF RI sACTUAL DATA 
2749 011632 020001 CMP RO,R1 ;COMPARE EXP VS ACT 

750 011634 001401 BEQ +4 
751 011636 104002 ERROR 2 sDATA CHARS SHOULD COMPARE 

ers 011640 105777 170046 TSTB @RXCSR ;CHECK RXDONE 
2753 011644 100001 BPL +h 
2754 011646 104004 ERROR RXDONE SHOULD BE CLR FROM 


PREVIOUS READING OF RXDBUF 


S TEST VERIFYS WORD LENGTH SELECT OF THE 
EIVER SECTION, IT USES THE ERROR FLAGS 
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CZDUQC.M11  20=AUG-80 09: INITIALIZE THE COMMON TAGS SEQ 0055 
2759 7370 DETERMINE THAT IT WAS SELECTED CORRECTLY 
2760 +: COVRRUN, RXERR 
| 2761 > MODE: 1SYMOD 
2762 >: LENGTH: F IVE 
ster 3s CHAR: 25 
2765 Re eeeeeeeeeeeeeeeeeeeeeeeetereeeneeeeeeeteteneeeeeeeetereeees 
766 011650 000004 TST60: SCOPE 
2767 011652 052777 000400 170046 BIS WMRESET,@TXCSR ;MASTER RESET 
2768 011660 912777 000000 170034 MOV #ISYMOD,@PARCSR :SET THE MODE 
2769 011666 052777 000400 170032 BIS #MRESET.a@TXCSR :MASTER RESET 
2771 ;SET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
2772 011674 012777 064001 170024 MOV #MTOATA!CLK'!MINT'BREAK,a@TXCSR 
2774 sSET MODE ,# OF BITS, PARITY SENSE, LOAD SYNC REG 
2775 011702 012777 000000 170012 MOV #ISYMOD!FIVE'NOPAR!0,a@ 
2776 011710 052777 000020 167774 BIS #SYNSCH,@RXCSR ;SET Syme SEAR CH 
2777 sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION. 
2778 011716 042777 020000 170002 BIC #CLK,aTXCSR :PO CLK DOWN 
2779 011724 052777 020000 167774 BIS #CLK,@TXCSR POKE CLK UP 
2780 :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
2781 011732 042777 020000 167766 BIC #CLK,a@TXCSR :POKE CLK DOWN 
2782 011740 052777 020000 167760 BIS #CLK.a@TXCSR :POKE CLK 
2783 011746 016703 167744 MOV RXDBUF ,R3 SET UP FoR ERROR MESSAGE 
2784 011752 012700 000025 MOV #25,RO0. ;EXPECTED 
2785 011756 012767 000007 167136 MOV :# OF SHIFTS 
786 011764 012767 000152 167506 MOV #152,$TMP1 :DATA CHAR 
787 011772 004767 05126 JSR PC,RPOKE jSHIFT IN THIS CHAR 
2788 011776 105777 167710 TSTB  a@RXCSR ;RXDONE ? 
2789 012002 100401 BMI +4 
2790 012004 104004 ERROR 4 s RXDONE SHOULD BE SET 
2791 012006 017701 167704 MOV @RXDBUF ,R1 UAL 
2792 012012 0200 CMP RO,R1 3; COMPARE NPECTED VS. ACTUAL 
2793 012014 001401 BEQ +4 
2794 012016 104002 ERROR 2 sRECEIVED DATA DID NOT MATCH 
2795 sEXPECTED DATA - CHECK MAINT DATA 
2796 [OR RECEIVER LOGIC 
2797 012020 012767 000007 167074 MOV SHIFT. 3# OF SHIFTS 
2798 012026 012767 000152 167444 MOV ngs" STMP1 [DATA CHAR 
2799 012034 004767 005064 JSR PC ,RPOKE ‘SHIFT IN THIS CHA 
2800 :NOW SHIFT IN A SECOND CHARACTER’ WITHOUT READING RXDBUF 
2801 012040 012767 000007 167054 MOV 7, SHIFT 74 OF SHIFTS 
2802 012046 012767 000152 167424 MOV m5, sine [DATA CHAR 
2803 012054 004767 005044 JSR SSHIFT IN THIS CHAR 
2804 0 012700 140025 MOV #140000125. RO ZEXPECTED DATA PLUS 
2805 sRXERR & OVRRUN 
2806 012064 017701 167626 MOV @RXDBUF ,R1 ACTUAL 
2807 012070 020001 CMP RO,R1 ; COMPARE ‘EXP VS. ACT 
2808 012072 001401 BEQ w+) 
2809 012074 104002 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
2810 SOVRRUN BITS... THEY BOTH SHOULD BE SET 
B12 :; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
2813 S:RECEIVER SECTION, IT USES THE ERROR FLAGS 
2814 7:10 DETERMINE THAT IT WAS SELECTED CORRECTLY 


PRS TP ROR ae ae ee ees FE 
cZDUa-CO MACY11 30A(1052) O9-SEP=80 10:57 PAGE 60 
CZDUC.M11 —-20-AUG-B0 09:19 INITIALIZE THE COMMON TAGS SEQ 0056 


2815 3; COVRRUN, RXERR) 

2816 > MODE : 1SYMOD 

2817 ; sLENGTH: FIVE 

2818 3 CHAR: 12 

2820 PPUSITIITIITIITI ITT ITT ITT TTT iit iit iit titi iti titi titi ii iii iii 
2821 012076 000004 1S161: SCOPE 

2822 012100 052777 000400 167620 BIS WMRESET,@TXCSR ;MASTER RESET 

2823 012106 012777 000000 167606 MOV #ISYMOD.a@PARCSR :SET THE MODE 

2824 012114 052777 000400 167604 BIS #MRESET.aTXCSR :MASTER RESET 

2826 :SET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 

2827 012122 012777 064001 167576 MOV #MTDATA! CLK! MINT !BREAK ,@TXCSR 

2829 :SET MODE ,# OF BITS. PARITY SENSE -GLOAD SYNC REG 

2830 012130 012777 000000 167564 MOV #ISYMOD!FIVE!NOPAR!0,@ 

2831 012136 052777 000020 167546 BIS #SYNSCH.ARXCSR ;SET SYNC. SEAR 

2832 :POKE CLK TO GET RECEIVER INTO STNGROL ZATION. 
2833 012144 042777 020000 167554 BIC cL Kat KCSR :POKE CLK DOWN 

2834 012152 052777 020000 167546 BIS #cLk POKE CLK UP 

2835 ;POKE CLK TO GET Logie Into SYNCRONIZATION 

2836 012160 042777 020000 167540 BIC #CLK,@TXCSR :POKE CLK DOWN 

2837 012166 052777 020000 167532 BIS PCLK OTXESR :POKE CLK 

2838 012174 016703 167516 MOV RXDBUF ,R3 3;SET UP FOR * ERROR MESSAGE 
2839 012200 012700 000012 MOV #12,RO EXPECTED 

2840 012204 012767 000007 166710 MOV ° :# OF SHIFTS 

2841 012212 012767 000124 167260 MOV #134,$TMP1 ‘DATA CHAR 

284 pissy 908767 004700 JSR PC ,RPOKE >SHIFT IN THIS CHAR 
2843 012224 105777 167462 TSTB  @RXCSR ;RXDONE ? 

2844 012230 1004 BMI +4 

2845 012232 104004 ERROR 4 ;RXDONE rar BE SET 

2846 012234 017701 167456 MOV @RXDBUF ,R1 ACTUAL 

2847 012240 020001 CMP RO,R1 ;COMPARE EXPECTED VS. ACTUAL 
2848 012242 001401 BEQ +4 

2849 012244 104002 ERROR 2 :RECEIVED- DATA DID NOT MATCH 
2850 SEXPECTED DATA - CHECK MAINT DATA 
2851 [OR RECEIVER LOGIC 

2852 012246 012767 000007 166646 MOV #7, SHIFT 3# OF SHIFTS 

2853 01 012767 000124 167216 MOV #134 ,$TMP1 [DATA CHAR 

2854 0122 004767 004636 JSR PC, RPOK E sSHIFT IN THIS CHA 

2855 :NOW SHIFT IN A SECOND CHARACTER’ ‘WITHOUT READING RXDBUF 
2856 012266 012767 000007 166626 MOV #7, SHIFT OF SHIFTS 

2857 012274 012767 000124 167176 MOV 2k, STMP1 ‘DATA CHAR 

2858 012302 004767 004616 JSR PC, RPOKE ‘SHIFT IN THIS CHAR 
2859 012306 012700 140012 MOV #140000! 12,R0 SEXPECTED DATA PLUS 
2860 :RXERR & OVRRUN 

2861 012312 017701 167400 MOV @RXDBUF ,R1 “ACTUA 

2862 012316 020001 CMP RO,R1 |; COMPARE EXP VS. ACT 

2863 012320 001401 BEQ +4 

2864 012322 104002 ERROR 2 sSPECIFICALLY LOOK AT RXERR & 
2865 SOVRRUN BITS... THEY BOTH SHOULD BE SET 
2866 

2867 

2868 

2869 SEND OF 

2870 s TYPE Lane OF TEST 
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;UPDATE PASS COUNT 
;CHECK FOR EXIT TO ACT-11 
RESTART TEST 


000004 .EOP: SCOPE 
004767 000340 JSR PC, CKSWR 
104401 TYPE : TYPE NAME OF TEST 
015463 MEPASS 
104413 012570 CONVRT ,OUTCRY 
104401 015302 TYPE DEVICE 
105767 166600 TSTB  MULTD  ;ARE YOU RUNNING MULTIPLE DEVICES ? 
001511 BEQ CCC ‘NO, JUMP AROUN 
005767 166606 TST ACTREG :ARE ANY DEVICES ACTIVE ? 
001007 BNE RUNIT YES 
104401 015314 TYPE  ,MCOW :NO 
016700 166574 MOV ACTREG,RO :DISPLAY ACTREG 
000000 HALT SELECT SOMETHING TO RUN @ ACTREG: 
sSELECT SWITCHES & HIT CONTINUE (PUT SWOO = 
000167 167552 JMP .START ;START OVER AGAIN...... YOU DESELECTED EVERYTHING 
062767 000010 166546 RUNIT: ADD #10, BASEADD :NEXT BLOCK (ADDRESSES) 
062767 000010 166546 ZERO: ADD #10. BASELV :NEXT BLOCK (VECTORS) 
006167 166546 ROL ROTADD ;UP DATE ROTATING POINTER 
103410 BCS 2$ i1s IT THE LAST DE 
0 BE TESTED IN THIS PASS ? 
036767 166540 166534 BIT ROTADD, aithec Test THIS DEVICE fOr ACTIVE STATUS 
001762 BEQ RUNIT iif NOT ACTIVE, TRY NEXT ADDRESS 
004767 000034 JSR PC,REPLAY MEAL CULATE NEW PARAMETERS 
000167 000210 JMP RESTRT ;YES IT WAS ACTIVE,TEST THIS DEVICE 
012767 000001 166516 28: MOV #1 ,ROTADD :0K!,NOW SET UP ROTATING 
POINTER FOR NEXT MULTIPLE PASS 
016767 166500 166474 MOV KEEPADD, BASEADD sRESTORE BASE ADDRESS 
016767 166500 166474 MOV KEEPIV, BASEIV ‘RESTORE BASE INTERRUPT VECTORS 
004767 000002 JSR PC, REPLAY ‘CALC NEW PARAMETERS 
0441 BR cc¢ ; JUMP AROUND REPLAY 

016767 166454 004420 REPLAY: MOV BASEADD,DUBASE ;SET UP FOR NEW ADDRESSES 

767 004262 JSR PC ,DUADDR :CREATE NEW ADDRESSES 
016767 166450 167222 MOV BASELV, DURIV :CREATE DURIV 
062767 000002 166440 ADD 1V 
016767 166434 167210 MOV BASEL, DURIS SCREATE DURIS 
062767 000002 166424 ADD 
016767 166420 167176 MOV BASELV, pUTIV SCREATE DUTIY 
062767 000002 166410 ADD 1V 
016767 166404 167164 MOV page iv. DUTIS : CREATE DUTIS 
016767 167152 166374 MOV DURIV,BASELV RESTORE 
000207 RTS PC 
000001 OUTCRY: 1 

06 002 .BYTE 6,2 
001712 RXCSR 

CCC: 

005067 166600 CLR STSTNM sCLEAR TEST NUMBER 
005067 166610 CLR SERRPC ‘CLEAR LAST ERROR PC 
005067 166571 CLR SERFLG ‘CLEAR ERROR FLAG 
005267 166274 INC PASCNT ‘UPDATE PASS COUNT 


| 
| 
| 
| 


CZDUQ=CO 

CZDUQC .#11 
2927 012616 
2928 012604 
2929 012632 
2930 012636 
2931 012640 
2932 012642 
2933 012644 
2934 012646 
2935 012650 
2936 012652 
2937 012654 


2940 012666 
2941 

2942 

2943 

2944 

2945 

2946 012672 
2947 012676 
2948 012700 
2949 012 
2950 012710 
2951 0127 
2952 012716 
2953 012724 
2954 012732 
2955 012740 
2956 012742 
2957 012746 
2958 012752 
2959 012756 
2960 012760 
2961 012762 
2962 012766 
2963 012770 
2964 012772 
2965 012774 
2966 012776 
2967 013000 
2968 013004 
2969 013006 
2970 013010 
2971 013012 
2972 013014 
2973 

2974 013016 
2975 

2976 

977 

978 013020 
2979 013024 
2980 013032 

01 
01 


MACY11 30A(1052) 
20-AUG-80 09:19 


016767 


000240 
012767 


004767 
000167 


005737 


166270 
166262 
000042 


003376 
000004 
170416 


000042 
000176 
166530 
166524 
177600 
000007 
016070 


013006 
016100 


016111 


001 
013006 
002 


177646 
001000 


166050 


09-SEP-80 


166524 


166532 


000422 
000414 
000406 


166406 


SENDAD: 


RESTRT: 


CKSWR: 


CNTLU: 


OUT: 


RDSw: 


SWREGL: 


.SCOP1: 


10:57 PAGE 62 
INITIALIZE THE COMMON TAGS 


MOV PASCNT,LIGHTS 
MOV PASCNT .SPASS 
MOV av42,Ri 
BEQ RESTRT 


R 

JSR PC,(R1) 

N 

MOV #1S11+2,$LPADR 


JSR PC, CKSWR 
JMP .BEGIN 


DISPLAY PASS oy" 

PASS COUNT TO A 

;CHECK FOR ACT- 4 "OR DOP 
;1F NO CONTINUE TESTING 


;LOAD LAST ADDR 


CHECK SWITCH REGISTER ROUTINE. 
;CHECKS TO ALLOW FOR <*G> TO ALLOW 
;THE CHANGING OF LOCATION 176 


TST ar4e 

B OUT 

CMP _— »SWR 
TSTB of ae 


OUT 
MOV a$TKB, .MSG 
BIC #177600, MSG 


CMPB 7 
NE i 
YPE _—, MCNTG 
COM aeRDSW 
YPE  ,MMSWR 
CONVRT 
SWREGL 
INSTR, MMNEW 
177777 
SWREG 
0,1 
CLR avRDSW 
RTS PC 
; WORD 0 
.BYTE 6 
SWREG 
5 


;SOFTWARE SWR PRESENT? 
;NO--LEAVE 


;CHECK TTY READY 
;NO==LEAVE 

;GET CHARACTER 
;STRIP JUNK 


CHECK FOR FREEZE ON CURRENT DATA 


JSR PC ,CKSWR 
BIT #Sw09,aSwR 


1 
+4 LOCK, (SP) 


SEQ 0058 


CZDUQ-CO 
‘Cibuac. M11 
| 
| 2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
299% 
2995 
2996 
2997 
2998 
2999 
3000 013042 
3001 013046 
3002 013050 
3003 013052 
3004 013054 
3005 013056 
3006 013062 
3007 013070 
3008 013072 
3009 013100 
3010 013102 
3011 013106 
3012 013112 
3013 013114 
3014 013122 
3015 013124 
3016 013126 
3017 013130 
3018 013132 
3019 013134 
3020 013140 
3021 013142 
3022 013146 
3023 013150 
3024 013154 
3025 013156 
3026 013160 
3027 013162 
3028 013164 
$089 013170 
30 013172 
3031 013176 
3032 013202 
M4 013204 
35 013210 
36 013214 
3037 013216 
38 013222 


MACY11 30A(1052) 
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105767 


os 
w 
™ 
ww 


e268 


— —- oo-— 
S385 285 
MENU OO 
PP Sunn 
2335 ooonun 


166411 


000002 
000001 


000100 


000004 
164674 


000040 


000002 
000011 
000200 


000130 


000056 
166254 


166244 
000001 


000032 
000072 


09-SEP-80 
TYPE ROUTINE 


-SBTTL TYPE ROUTINE 


PRRRARAARAARAAAARAERAEAAREAAAEAAERAAAAAAAAAAAAAAAAARAAAAERA THERES 


"ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 B a F 


166456 
166447 


166425 


;*NOTE2: 
s NOTES: 


*CALL 
te) US:NG A TRAP INSTRUCTION 
;* TYPE »MESADR 


:#0R 


61$: 
62$: 
2$: 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


TYPE 
MESADR 


10:57 PAGE 63 


SEQ 0059 


ieTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LI 


NE FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


Li PFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
#APTENV, SENV 


62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC ,SATY3 


#APTCSUP ,,SENVM 


(RO)+,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
WHT, (SP) 
#CRLF, (SP) 
(SP)+ 


SCHARCNT 

2$ 

PC ,STYPEC 
SFILLC,(SP)+ 
23 

SNULL ,~(SP) 


1(SP) 


6% 
PC ,STYPEC 
SCHARCNT 


;3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


37:18 THERE A TERMINAL? 
33 IF YES 
7;HALT HERE IF NO TERMINAL 
LEAVE 


33 RO 
7:GET ADDRESS OF ASCIZ STRING 
: ;RUNNING IN APT MODE 

3NO,GO CHECK 7. 9? A 
+: SPOOL MESSAGE T 
3:N0,GO CHECK FoR. CONSOLE 
+: SETUP me senes aponess FOR APT 
attr age Ne | TO A 

sMESSAGE A DRESS 

T CONSOLE SUPPRESSED 

SYES,SKIP 1 YPE OUT 
: Push CHARACTER TO BE TYPED ONTO STACK 
::;BR IF IT ISN'T THE TERMINATOR 

:IF TERMINATOR POP IT OFF THE STACK 


RESTOR E RO 
: SAD JUST RETURN PC 
::BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


7:POP <CR><LF> EQUIV 
:; TYPE A CR AND LF 


gs ELGAs CHARACTER COUNT 
T_NEXT CHARACTER 
£0 TYPE THIS CHARACTER 
S IT TIME FOR oe CHARS .? 
F_NO GO GET NEXT CHA 
:1GE1 # OF figs CHARS. "NEEDED 
D THE NULL C 
: Does A NULL NEED. TO BE TYPED? 
:BR IF wt POP THE NULL OFF OF STACK 
::G0 TYPE A NULL 
3;D0 NOT COUNT AS A COUNT 


—_—— 


'CZDUQ-CO MACY11 30A(1052) 09-SEP-80 10:57 
ICZDUQC.M11 20-AUG-80 09:19 TYPE ROUTINE 
3039 013226 000770 BR 
3040 
3041 sHORIZONTAL TAB 
3043 013230 112716 000040 8$: MOVB 
3044 013234 004767 000014 9$: JSR 
3045 013240 132767 000007 000052 BITB 
3046 013246 001372 BNE 
3047 013250 005726 TST 
3048 013252 000724 BR 
3049 013254 105777 166170 STYPEC: TSTB 
3050 013260 100375 BPL 
3051 013262 116677 000002 166162 MOVB 
3052 013270 122766 000015 000002 CMPB 
3053 013276 00100 BNE 
3054 013300 105067 000014 CLRB 
3055 013304 000406 BR 
3056 013306 122766 000012 000002 1%: CMPB 
3057 013314 001402 BEQ 
3058 013316 105227 INCB 
3059 013320 000000 SCHARCNT: .WORD 
3060 013322 000207 STYPEX: RTS 
3061 
3062 
3063 
3064 
3065 013324 017667 000000 000014 .INSTR: MOV 
3066 013332 062716 000002 ADD 
3067 013336 105767 166204 TSTB 
3068 013342 001036 BNE 
3069 013344 104401 .INST1: TYPE 
3070 013346 000000 MSG: 0 
30/1 013350 012704 016124 MOV 
307z 013354 012703 000007 MOV 
3073 013360 105777 166060 1$: TSTB 
3074 013364 100375 BPL 
3075 013366 117714 166054 MOVB 
3076 013372 142714 000200 BICB 
3077 013376 121427 000025 CMPB 
3078 013402 001760 BEQ 
3079 013404 122427 000015 CMPB 
3080 013410 001413 BEQ 
3081 013412 105777 166032 2s: TSTB 
3082 013416 100375 BPL 
3083 013420 117777 166022 166024 MOVB 
3084 013426 005303 DEC 
5 013430 001353 BNE 
013432 104401 .INSTE: TYPE 
7 013434 015410 aM 
3088 013436 000742 BR 
9 013440 000002 INSTR2: RTI 
1 
3395 013442 011605 .PARAM: MOV 
3094 013444 012567 000162 MOV 
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7$ 
PROCESSOR 
a’, (SP) 

PC ,$TYPEC 
#7 SCHARCNT 
9$ 

(SP)+ 

$ 

a$TPs 
STYPEC 
2(SP) ,aSTPB 
#CR,2(SP) 
1$ 

SCHARCNT 
STYPEX 
#LF,2(SP) 
STYPEX 
(PC)+ 


PC 


Oo 


3;;LO0P 


; REPLACE TA 


B WITH SPACE 


sz; TYPE A SPACE 


;;BRANCH IF 
3; TAB STOP 
:;POP SPACE 
7;GET NEXT C 
3;WAIT UNTIL 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3318S CHARACTER A CARRIAGE RETURN? 


; BRANCH IF 
3: YES--CLEAR 


s3EXIT 
:31S CHARACT 


NOT AT 
OFF STACK 


HARACTER 
PRINTER IS READY 


NO 
CHARACTER COUNT 
ER A LINE FEED? 


;;BRANCH IF YES 


;;COUNT THE 
:; CHARACTER 


sASCII STRING INPUT ROUTINE 


a(SP),.MSG 
#2, (SP) 
SENV 
INSTR2 


#INBUF ,R4 


#7 ,R3 
aSTKS ; TTY FLAG 


1$ 

aSTKB, (R4) 
#200, (R4) 
oo) af? 


. INS 
(R4)+,#15 


:PICK UP MES 
; JUMP AROUND 
;APT CONTROL 
YES NO TYPE 


GET STARTIN 
3;MAX # OF CH 
; TAKE CHAR 
STRIP 

31S IT <*G> 
CHECK FOR C 


INSTR 
a$TPS ;TEST FLAG 


aSTKB,asTPB 
R3 


ECHO CHARAC 


CHARACTER 
COUNT STORAGE 


SAGE 
MESSAGE FOR RTI 


G LOC OF INBUF 
ARS 


TER 


;D1D YOU TYPE TOO MANY CHARS ? 


9? 
"INSTT ;RETRY 


CONVERT ASCII STRING TO OCTAL 
(SP),R5 ;PUT CONTENTS OF SP INTO R5 


(R5)+,LOLIM 


;PUT LOW LIM 


IT INTO LOLIM 


SEQ 0060 
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016124 
000015 


000060 
000067 
000060 
000015 


000015 
015006 


000042 
000032 
000032 


000022 


000002 
000013 


000004 
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165256 


TYPE ROUTINE 


MOV (R5)+,HILIM ;PUT HIGH LIMIT INTO HILIM 

MOV (R5)+,DEVADR ;PUT STORE LOC INTO DEVADR 

MOVB (R5)+*,LOBITS ;PUT MASK_INTO LOBITS 

MOVB (R5) +, ADRCNT ;PUT COUNT INTO ADRCNT 

MOV R5,(SP) ;RESTORE RETURN ADDR ON STACK FOR RTI 
PARAM: CLR R5 

MOV #INBUF 

CMPB #15, (R4) ;CR ? 

BEQ PARERR ;YOU TYPED CR TOO SOON ! 
1$: CMPB (R4) ,#60 ;LOW LIMIT ASCII 0 

BLT PARERR 

CMPB (R4) ,#67 sHIGH LIMIT ASCII 7 

BGT PARERR 


sCONVERT TO OCTAL 
+ ey AWAY ITS AN OK CHAR 


BEQ LIMITS ;NOW CHECK FOR HIGH &LOW Ad CONDS 


ASL R5 ;ALLOCATE ROOM FOR NEXT CH 
ASL R5 
ASL R5 
BR 1$ 
PARERR: CMPB #15, (R4) 3CR? 
BNE 120$ 
TST a#RDSW sCK SWR USED 
BNE PARTI 
120$: INSTER ;RETRY 
BR PARAM 


;TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: CMP R5S,HILIM 
BHI PARERR ;THE # IS TOO HIGH 


CMP R5,LOLIM 
;THE # IS TOO LOW 


BLO PARERR 
BITB LOBITS,R5 > TEST BY MASKINGTHE # 


BNE PARERR- 
:STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR,R4 :GET STARTING ADDR OF 


18: MOV R5,(R4)+ sSTORE AT THIS ADDR 
ADD #2,R5 
DECB ADRCNT ;HOW MANY TIMES + 2 ? 
BNE 1$ 

PARTI: RTI 

LOLIM: 0 

HILIM: 0 

nn 0 


ADRENTSLOBITS+1 

SAVE PC OF TEST THAT FAILED AND RO-R5 
-SAVO5: MOV 4(SP) ,SAVPC 

sSAVE RO-R5 
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3151 
3152 013650 010567 165620 $v05: MOV RS, SREGS 
3153 013654 010467 165612 MOV R4, SREGS 
3154 013660 010367 165604 MOV R3,$REG3 
3155 013664 010267 165576 MOV R2,$REG2 
3156 013670 010167 165570 MOV R1,$REG1 
3157 013674 010067 165562 MOV RO, SREGO 
3138 013700 000002 RTI 
3160 ;RESTORE RO-R5 
3162 013702 016700 165554 .RESOS: MOV SREGO,RO 
3163 013706 016701 165552 MOV $REG1,R1 
3164 013712 016702 165550 MOV $REG2,R2 
3165 013716 016703 165546 MOV SREG3,R3 
3166 013722 016704 165544 MOV SREGS RG 
3167 013726 016705 165542 MOV SREGS,RS 
3168 013732 000002 RTI 
a100 CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
3172 013734 104401 .CONVR: TYPE 
3173 013736 4015414 MCRLF ;CR LF 
3174 013740 017601 000000 MOV a(SP),R1 :PICK UP DATA POINTER 
3175 013744 062716 000002 ADD #2,(SP) :SET UP SP FOR RTI 
3176 013750 012167 000130 MOV (R1)+,WROCNT PICK UP # OF WORDS FROM TABLE 
3177 013754 112167 000126 1$: MOVB  (R1)*,CHRCNT  ;:PICK UP # OF CHARS FROM TABLE 
3178 013760 W12167 000123 MOVB  (R1)+,SPACNT  ;PICK UP # OF SPACES FROM TABLE 
3179 013764 013167 000120 MOV a(R1)+,BINWRD  :PICK Up ADDRESS OF MSG 
3181 013770 016704 000114 2$: MOV BINWRD,R4 SAVE 
3182 013774 116705 000106 MOVB = CHRCNT,RS : SAVE 
3183 014000 012700 016166 MOV #TEMP RO *STARTING ADDRESS OF TEMP BLOCK 
3184 014004 010403 3$: MOV R4,R3 SAV 
3185 014006 042703 177770 BIC #177770,R3 :CLR OUT UPPER BITS .. SAVE CHAR 
3186 014012 062703 000260 ADD #260,R3 ;CONVERT TO ASCII 
3187 014016 110320 MOVB  —R3, (RO) + :STORE AWAY 
3188 014020 006204 ASR R4 sSHIFT FOR NEXT # 
3189 014022 006204 ASR R4 :DITTO 
3190 014024 006204 ASR R4 *DITTO 
3191 014026 005305 DEC RS ‘DEC CHAR COUNT 
3192 014030 001365 BNE 3$ “DO IT AGAIN ? 
3193 014032 012703 016230 MOV #MDATA,RS sSTARTING ADDRESS OF MDATA BLOCK 
3194 014036 114023 4$: MOVB (RO), (R3)¢ *REVERSE THE ORDER OF NUMBERS 
3195 014040 105367 000042 DECB CHRCNT ;DEC CHAR COUNT 
196 014044 001374 BNE 4$ ; T AGAIN ? 
197 014046 105767 000035 TSTB SPACNT ;HOW MANY SPACES ? 
198 014052 001405 BEQ “TYPE # IF BR =0 
199 014054 112723 000240 5$: MOVB #240,(R35+ :SPACE'' IN ASCII 
200 014060 105367 000023 DECB SPACNT ;DEC # OF SPACE COUNT 
201 014064 001373 BNE 5$ :D0 1T AGAIN ? 
202 014 105013 6$: CLRB Ss (R33) ‘INSERT ''O'' FOR TTY OUTPUT ROUTINE 
203 014070 1 401 TYPE 
204 014072 016 MDATA ;THIS MESSAGE 
205 014074 005367 000004 DEC WROCNT ;HOW MANY #°S ? 
206 014100 001325 BNE 1$ :DO THIS ROUTINE AGAIN IF NOT EQUAL TO 0 
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20-AUG-80 09:1 
014102 000002 
014104 000000 
014106 000000 
014107 

014110 000000 
014112 017605 000000 
014116 122767 000116 
014124 001002 
014126 105015 
014130 000406 
014132 122767 000131 
014140 001005 
014142 112715 177777 
014146 062716 000002 
014152 000002 
014154 104407 
014156 000755 
014160 
014160 105267 165217 
014164 001775 
014166 016777 165210 
014174 032777 002000 
014202 001402 
014204 104401 001516 
014210 005267 165176 
014214 011667 165176 
014320 162767 2 
014226 117767 165164 
014254 52777 02 
014242 001004 
014244 004767 
014250 104401 001523 
014254 

14254 122767 000001 
014262 001007 
014264 116767 165124 
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TYPE ROU 


002000 


001764 


165264 
000004 


TINE 


RTI ;RETURN TO PROGRAM 
WRDCNT: 0 


CHRCNT: 0 

SPACNT=CHRCNT+1 

BINWRD: 0 
: COMPARE THE FIRST veo Yb Pins Me. © phate INPUT 
UFFE CHARAC "'_'' 


IF THE CHARACTER IS ne CLEAR THE FLAG 
cIF THE CHARACTER IS ‘'Y'’ SET THE FLAG 


- SETFLG:MOV a(SP),R5 


CMPB #'N, INBUF 1S IT ‘Ww’? 
SNE 1$ 
CLRB (R5) ;000 
BR 2$ 

1$: at #'Y, INBUF m6 IF “7 
MOVB #-1,(R5) 3377 

2$: are #2, (SP) 

3$: INSTER ;RETRY 


BR - SETFLG 
-SBTTL ERROR HANDLER ROUTINE 


PRRARARAARARAARATAAAA TATA TATA AAAAAAAA TAA AAA ee eee A AeA eAe eee 
TaTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SAVIT ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


:*SW15=1 HALT ON ERROR 

3*SW13=1 INHIBIT ERROR TYPEOUTS 

3*SW10=1 BELL ON ERROR 

to oy gy LOOP ON ERROR 

3% 

3¢ ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 
7$: INCB SERFLG :3SET THE ERROR FLAG 

BEQ 7$ DON'T LET THE FLAG GO TO ZERO 

MOV STSTNM,@DISPLAY +: DISPLAY TEST Mees AND ERROR FLAG 
BIT seit 10,aSWR :sBELL ON ERROR 


BEQ 1$ NO - SKIP 
TYPE $BELL 7 3RING BELL 
1$: INC $ERTTL COUNT THE NUMBER OF ERRORS 
nov (SP) , SERRPC SIGET ADDRESS OF ERROR INSTRUCTION 
MOVB aSERRPC,SITEMB ::STRIP_AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSWR :SKIP TYPEOUT IF 
BNE 20% ::SKIP TYPEOUTS 
JSR PC, SAVIT ':G0 TO USER ERROR ROUTINE 
~ TYPE  ,SCRLF 
CMPB = FAPTENV,SENV =; ; RUNNING IN APT MODE 
BNE 2$ 'NO,SKIP APT ERROR REPORT 


MOVB $ITEMB,21$ :iset ITEM NUMBER AS ERROR NUMBER 


SEQ 0063 
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$507 peste 004767 163520 JSR PC,SATY4 ;;REPORT FATAL ERROR TO APT 

264 014276 000 21$: . BYTE 0 

3265 O14¢e77 000 “BYTE 0 

3266 014300 000777 228: BR 22$ 3;;APT ERROR LOOP 

3267 014302 005777 165132 2$: TST aSWR ‘HALT ON ERROR 

3268 014306 100001 BPL 3$ ::SKIP IF CONTINUE 

3269 014310 0000 HALT ‘:HALT ON ERROR! 

3270 014312 032777 001000 165120 3$: BIT #B1T09,aSwR 3: ;LOOP ON ERROR SWITCH SET? 

3271 014320 001402 BEQ 4$ F NO 

3272 014322 016716 165062 MOV | SLPERR, (SP) : +FUDGE RETURN FOR LOOPING 

3273 014326 005767 165162 4$: TST SESCAPE :CH ECK FOR AN ESCAPE ADDRESS 
3274 014332 001402 BEQ 5$ IF NONE 

3275 014334 016716 165154 MOV SESCAPE, (SP) «FUDGE RETURN ADDRESS FOR ESCAPE 
3276 014340 5$: 

3277 014340 000002 RTI + ;RETURN 

3278 014342 010067 164562 SAVIT: MOV RO,HLDO 

3279 014346 010167 164560 MOV R1.HLD1 

3280 014352 010267 164556 MOV R2,HLD2 

3281 014356 010367 164554 MOV R3,HLD3 

3282 014362 010467 164552 MOV R4.HLDS 

3283 014366 010567 164550 MOV R5-HLDS 

3284 014372 016767 165004 164544 MOV $TSTNM,HLD6 

43] -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

3288 Z , REAR AAAAEAAEAAEAEAEAAAAEAAAEAAAAARAAAARAAAAAAEAAAAEAAARAEAEAAAAAEREREE 
3289 S*THIS ROUTINE USES THE "ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
3290 [*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
344 : AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
3293 014400 SERRTYP: 

3294 014400 104401 001523 TYPE , 9CRLF he RETURN'' & ‘LINE FEED" 
3295 014404 010046 MOV RO, -(SP) V 

3296 014406 005000 CLR RO 8ST CKUP THE ITEM INDEX 

3297 014410 153700 001414 BISB a#SITEMB,RO 

3298 014414 001004 BNE 1$ s1F ITEM NUMBER IS ZERO, JUST 
3299 TYPE THE PC OF THE ERR OR 

3300 014416 016746 164774 MOV SERRPC.-(SP)  ::SAVE SERRPC FOR TYPEOUT 

3301 szERROR ADDRESS 

3302 014422 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
3303 014424 000426 BR 6$ [GET OUT 

3304 Breees 005300 1$: DEC RO ; ;ADJUST THE INDEX SO THAT IT WILL 
3305 144 0063 ASL RO 33 WORK FOR THE ERROR TABLE 
3306 014432 006300 ASL RO 

3307 014434 006300 ASL RO 

308 014436 062700 001652 ADD #SERRTB,RO tik et TABLE POINTER ; 

3309 014442 012067 000004 MOV (RO)+,2$ SIPICKUP "ERROR MESSAGE POINTER 
310 Spee: 001404 BEQ 3$ s:SKIP TYPEOUT IF NO POINTER 

311 0144 104401 TYPE io TYPE THE ‘ERROR Fre 

312 014452 000000 28: .WORD 0 ‘ERROR MESSAGE’ POIN TER GOES HERE 
31 O14454 104401 001523 TYPE  ,SCRLF £1 CARRIAGE RETURN’ & "LINE FEED" 
314 14460 012067 000004 3$: MOV (RO)+,4% PICKUP ‘DATA HEADER’ POINTER 
315 014464 0014 BEQ 5$ :SKIP TYPEOUT IF a? 

a8 0144 104401 TYPE tA: THE ‘DATA HEADER’ 

317 014470 000000 4$: .WORD 0 ‘DATA HEADER’ POINTER GOES HERE 
318 014472 104401 001523 TYPE  ,SCRLF TIMCARRIAGE RETURN’ & “LINE FEED 
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3319 014476 011000 5$: MOV (RO) ,RO :;PICKUP "DATA TABLE’’ POINTER 
3320 014500 001004 BNE 7$ 3:;G0 TYPE THE DATA 
3321 014502 012600 6$: MOV (SP)+,RO RESTORE RO 
3322 014504 104401 001523 TYPE , SCRLF 3:''CARRIAGE RETURN’ & ‘LINE FEED"’ 
3323 014510 000207 RTS PC 3 ;RETURN 
3324 014512 7$: 
3325 014512 013046 MOV a(RO)+,-(SP) :;SAVE a(RO)+ FOR TYPEOUT 
3326 014514 104402 TYPOC 33;G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
3327 014516 005710 TST (RO) 3:18 THERE ANOTHER NUMBER? 
3328 014520 001770 BEQ 6$ 3;BR IF NO 
3329 014522 104401 014530 TYPE 8$ :; TYPE TWO(2) SPACES 
3330 014526 000771 BR $ 33h 
3331 014530 020040 000 8$: ASCIZ / / ::TWO(2) SPACES 
3332 014534 EVEN 
333 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
3335 PUTTS iit iti ii itititiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy, 
3336 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
3337 s*OCTAL (ASCII) NUMBER AND TYPE IT. 
$335 een HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3* . 
3340 s* MOV NUM, -(SP) ; NUMBER TO BE TYPED 
3341 3* TYPOS ;;CALL FOR TYPEOUT 
3342 3* BYTE N 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3343 head BYTE 4 3:M=1 OR O 
3344 3 32 1=TYPE LEADING ZEROS 
Saez 3% 7;0=SUPPRESS LEADING ZEROS 
;* 
347 s*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
3348 ;*$TYPOS OR $TYPOC 
3349 3*CALL: ; 
3350 3* MOV NUM,=-(SP) ;;NUMBER TO BE TYPED 
$325 3 TYPON :;CALL FOR TYPEOUT 
-3* 
3353 s*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3354 3*CALL: 
3355 3* MOV NUM, - (SP) ; NUMBER TO BE TYPED 
3328 :* TYPOC ;:CALL FOR TYPEOUT 
3358 014534 017646 000000 $TYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
3359 014540 116667 000001 000211 MOVB 1(SP),SOFILL 7;LOAD ZERO FILL SWITCH 
3360 014546 112667 000207 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
3361 014552 062716 ADD #2,(SP) ;;ADJUST RETURN ADDRESS 
3362 014556 000406 BR STYPON 
3363 014560 112767 000001 000171 S$TYPOC: MOVB #1, SOF ILL 3:SET THE ZERO FILL SWITCH 
3364 014566 112767 000006 000165 MOVB #6, SOMODE +1 3;SET FOR SIX(6) DIGITS 
3365 014574 112767 000005 000154 S$TYPON: MOVB #5,S0CNT 3;SET THE ITERATION COUNT 
366 014602 010346 MOV R3,-(SP) 3s: SAVE R3 
367 014604 010446 MOV R4,-(SP) 7 SAVE R4 
368 014606 010546 MOV R5,-(SP) 7: SAVE RS 
3369 014610 116704 000145 MOVB SOMODE+1,R4 3:;GET THE NUMBER OF DIGITS TO TYPE 
A eretie 005404 NEG R4 
71 014616 062704 0000 ADD #6,R4 7;SUBTRACT IT FOR MAX. ALLOWED 
378 014622 110467 000132 MOVB R4 , SOMODE :;SAVE IT FOR USE 
37 pisees 116704 000125 MOVB SOFILL,R4 7:GET THE ZERO FILL SWITCH 
374 014632 016605 000012 MOV 12(SP),R5 3:PICKUP THE INPUT NUMBER 


B 6 
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3375 014636 005003 CLR R3 i: CLEAR THE OUTPUT, wORD 
3376 014640 006105 1$: ROL R5 ROTATE MSB INTO "'C’’ 
3377 014642 000404 BR 3$ ::G0 DO MSB 
3378 014644 006105 2$: ROL RS +:FORM THIS DIGIT 
3379 014646 006105 ROL R5 
3380 014650 006105 ROL 
3381 014652 010503 MOV R5,R3 
3382 014654 006103 3$: ROL R3 ::GET LSB OF THIS ,picit 
3383 014656 105367 000076 DECB  $OMODE is TYPE THIS DIGIT? 
3384 014662 100016 BPL NO 
3385 014664 042703 177770 BIC #177770,R3 3 GET RID OF JUNK 
3386 014670 001002 BNE 4$ T FOR 
3387 014672 005704 TST RG >: SUPPRESS THIS 0? 
3388 014674 001403 BEQ 5$ ::BR IF YES 
3389 014676 005204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0°S 
3390 014700 052703 000060 BIS #'0,R3 t:MAKE THIS DIGIT ASCII 
3391 014704 052703 000040 5$: BIS #' [R3 + MAKE ASCIL it NOT ALREADY 
3392 014710 110367 000040 MOVB 3,8 ::SAVE FOR TYPING 
3393 014714 104401 014754 TYPE a$ *:G0 TYPE THIS DIGIT 
3394 014720 105367 000032 7$: DECB —« $OCNT ::COUNT BY 1 
3395 014724 003347 BGT 2$ ::BR IF MORE TO DO 
3396 014726 002402 BLT 6$ ::BR IF DONE 
3397 014730 005204 INC R4 :; INSURE LAST DIGIT ISN'T A BLANK 
3398 014732 000744 BR 2$ ':G0 DO THE LAST DIGIT 
3399 014734 012605 6$: MOV (SP)+,R5 ::RESTORE RS 
3400 014736 012604 MOV (SP)+,R4 33 TORE R4 
3401 014740 012603 MOV (SP)+.R3 S:RESTORE R3 
340 01474 016666. 000002 000004 MOV 2(SP) ,4(¢SP) :;SET THE STACK FOR RETURNING 
3403 014750 012616 MOV (SP)+, (SP) 
3404 014752 000 RTI : RETURN 
3405 014754 000 8$: .BYTE 0 :: STORAGE FOR ASCII DIGIT 
3406 014755 000 BYTE 0 s; TERMINATOR FOR TYPE ROUTINE 
3407 014756 000 SOCNT: .BYTE 0 S:O0CTAL DIGIT COUNTER 
3408 014757 000 $OFILL: .BYTE 0 :3ZERO FILL SWITCH 
3409 014760 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
se49 TENTER HERE ON POWER FAILURE 
3412 
3413 014762 SPWRDN: 
3414 014762 010046 -PFAIL: MOV RO,-(SP) :SAVE RO-R5 ON PROCESSOR STACK 
3415 014764 010146 MOV R1,-(SP) 
3416 014766 01024 MOV R2,-(SP) 
3417 014770 010346 MOV R3,-(SP) 
3418 014772 010446 MOV R4.=(SP) 
3419 014774 010546 MOV RS,-(SP) 
20 014776 016746 163022 MOV 24.-(SP) 
21 015002 010667 164110 MOV SP. SAVSP :SAVE STACK POINTER 
32 015006 012767 015020 163010 MOV BRESTART, 24 ‘SET UP FOR POWER UP TRAP 
23 015014 000000 HALT ‘HALT ON POWER DOWN NORMAL 
34 015016 000777 BR 
26 sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
28 015020 016706 164072 RESTAR: MOV SAVSP, SP sRESTORE STACK POINTER 
29 015024 012605 MOV (SP)+.R5 “RESTORE RO-RS5 
30 015026 012604 MOV (SP)+,R4 
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CZDUQ-CO MACY11 3S0A(1052) 09-SEP-80 10:57 PAGE 71 , 
CZDUQC .M11 20-AUG-80 09:19 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0067 
Fett 015030 012603 MOV (SP)+,R3 
32. 015032 012602 MOV (S$P)+,R2 
3433 015034 012601 MOV (SP)+,R1 
3434 015036 012600 MOV (SP)+,R0 
3435 015040 012767 014762 162756 MOV #.PFAIL,24 ;SET UP FOR POWER FAILURE 
3436 015046 106427 000340 MTPS #340 
3437 015052 012706 001100 MOV #STACK,SP 
3438 015056 005067 001104 CLR TEMP 
3439 015062 005267 001100 INC TEMP 
3440 015066 0013575 BNE 274 
3441 015070 104413 CONVRT 
3442 015072 015114 PF TAB 
3443 015074 104401 TYPE 
3444 015076 015417 MPF AIL 
3445 015100 005067 164277 CLR SERFLG 
3446 015104 005067 164306 CLR SERRPC 
3447 015110 000177 163770 JMP @RETURN 
3448 015114 000001 PFTAB: 1 
3449 015116 006 002 BYTE 6,2 
3450 015120 000207 RETURN 
3451 015122 005015 041412 042132 MTITLE: .ASCIZ <15><12><12>/CZDUQ-CO DUVI1 TAPE A /<15><12> 
3452 015130 050525 041455 020060 
3453 015136 052504 030526 020061 
3454 015144 042520 040440 
3455 015152 006440 000012 
3456 015156 005015 042526 020103 MVECTO: .ASCIZ <15><12>/VEC ADD-/ 
3457 015164 042101 026504 000 
$126 015171 015 03041 §36) 3 MREGAD: .ASCIZ <15><12>/1ST DEV: REC CSR ADD-/ 
59 015176 042040 053105 020072 
3460 015204 2522 020103 051503 
3461 015212 020122 042101 026504 
3462 015220 000 
3463 015221 015 046412 046125 MMULT: .ASCIZ <15><12>/MULT DEV ? (Y OR N)-/ 
3464 oi asge 020124 042504 020126 
3465 0152 020077 054450 047440 
3466 015242 020122 024516 000055 
3467 915250 005015 040514 052123 MLASTD: .ASCIZ <15><12>/LAST DEV: REC CSR ADDR-/ 
3468 015256 042040 053105 020072 
3469 015264 042522 020103 051503 
3470 015272 peo les 042101 051104 
3471 015300 00005 
3472 015302 042075 053105 041511 DEVICE: .ASCIZ /=DEVICE / 
3473 015310 020105 000040 
3474 015314 005015 042523 042514 MCOW: .ASCIZ <15><12>/SELECT TO RUN @ACTREG/ 
3475 HERTS 938193 052040 020117 
3476 0153 525 sede 040500 
77 + 015336 paelt $3 000107 
78 015344 a 015 05511 530196 MRANGE: .ASCIZ <15><12>/OVFLO:RETYPE LAST DEV RXCSR ADDS~/ 
79 SEE 35117 Ree nee 54524 
80 015360 ht 0 046040 051501 
81 015 Bg 124 042504 020126 
Hy 015374 054122 051503 020122 
8 Beene 83 101 051504 000055 
84 01541 2 2 77 MOM: eASCIZ / 2/ 
85 015414 00501 000 MCRLF: .ASCIZ <15><12> 
86 015417 120 040506 046111 MPFAIL: .ASCIZ /PFAIL, RESTART AT TEST IN PROGRESS/ 


0 

DUQC .M11 
3487 015424 
3488 015432 
3489 015440 
3490 015446 
3491 015454 
3492 01546 
3493 01546 
3494 015470 
3495 015476 
3496 015504 
3497 015510 
3498 015514 
3499 015522 
3500 015527 
3501 015534 
3502 015542 
3503 015550 
3504 015556 
3505 015562 
3506 015570 
3507 015576 
3508 015604 
3509 015612 
3510 015620 
3511 015626 
3512 015630 
3513 015636 
3514 015644 
3515 015652 
3516 015660 
3517 015666 
3518 015674 
3519 015701 
3520 015706 
3521 015714 
3522 015722 
3523 015730 
3524 015736 
3525 015744 
3526 015751 
3527 015756 
3528 BELL os 
3529 015772 
3530 016000 
3531 016006 
3236 016014 
353 Ses 33 
3534 0160 
$232 016036 

$36 g160d4 
$53 sis 
$375 0160 
$20) Be 844 

542 16100 
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09-SEP-80 10:57 PAGE 72 
BINARY TO OCTAL (ASCII) AND TYPE 


—9Oof WOWOoOwW! 


020122 
043117 


MEPASS: 


MR: 
MTSTPC: 


MLOCK: 


MSYNC: 


MWIRE6: 


MWIRES: 


MWIRES: 


MEXTJ: 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


<15><12>/END OF PASS TAPE A/ 


<15><12>/R/ 
<15><12>/TEST PC-/ 


<15><12>/LOCK ON TEST? (Y OR N)=/ 


<15><12>/# OF SYNC CHARS SELECTED ( 1 OR 2)-/ 


<15><12>/1S SEC XMIT SWITCH E55-2 IN? (Y OR N)-/ 


<15><12>/1S SEC REC SWITCH E55-3 IN? (Y OR N)-/ 


<15><12>/1S OPT CLR ENABLE SWITCH E55-1 IN? (Y OR N)-/ 


<15><12><12>/H315 CONNECTOR ON ?(Y OR N)-/ 


<15><12>/ *G / 
/ SWwR=  / 


SEQ 0068 


TS 


CO MACY11 30A(1952) 09-SEP-80 10:57 PAGE 73 
vac .m11 20-AUG-80 09: BINARY TO OCTAL (ASCII) AND TYPE SEQ 0069 
016106 020040 000 
016111 040 920049 042516 MMNEW: .ASCIZ / NEW= / 
016116 036527 02004 000 
016124 .EVEN 
:BUFFERS FOR INPUT-OUTPUT 
016124 000000 INBUF: 0 
016166 .=. +40 
016166 000000 TEMP: 0 
016230 .=.+40 
016230 000000 MDATA: 0 
016272 =, +40 
“SBTTL SCOPE HANDLER ROUTINE 
SRRRAAERAAERARAAEAEEA EAE AE EEA RA AAA AAA AAAAAEAEAAEAAAAR AERA 
TSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
[*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPI.AY<7:0>) 
StAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
i *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
SW14=1 LOOP ON TEST 
a esul ie? INHIBIT ITERATIONS 
> *SWO9=1 LOOP ON ERROR 
:*SWO8=1 LOOP ON TEST IN SWR<7:0> 
:*CALL 
;* SCOPE :;SCOPE=10T 
016272 SSCOPE: 
;SCOPE LOOP AND INTERATION HANDLER 
016272 . SCOPE: 
016272 004767 174374 JSR PC, CKSWR 
016276 005067 163114 CLR SERRPC :CLEAR LAST ERROR PC 
016302 022716 003376 CMP #TST1+#2, (SP) :1S SCOPE AT BEGINING OF TEST 1? 
016306 001422 BEQ SXTSTR :YES NO LOOP. 
016310 032777 040000 163122 TTST: BIT #B1T14,aSWR :THIS CODE IS FOR TESTING FOR BIT 14 
016316 001412 BEQ 1$ :0N LSI WHICH SYSMAC CANNOT HANDLE 
016320 016767 163056 163060 MOV STSTNM,SLPADR 
016326 000406 BR 1$ 
016330 105777 163110 TSTB = aS TKS : KEYBOARD DONE? 
016334 100123 SPL SOVER F NO 
016336 017766 163104 177776 MOV asTKB,-2(SP) ‘Pr EAR DONE BIT 
016344 032777 040000 163066 1S: BIT #B1T14,aSwR : LOOP ON PRESENT TEST? 
016352 001114 BNE SOVER YES IF Swi4=1 
-WHRAASTART OF CODE FOR THE XOR TesTeRseaes 
016354 000416 $XTSTR: BR 6$ s IF RUNNING ON THE "XOR'' TESTER CHANGE 
::THIS INSTRUCTION TO A “'NOP’’ (NOP=240) 
016356 013746 000004 MOV @#ERRVEC,-(SP) «SAVE THE CONTENTS OF THE ERROR VECTOR 
016362 012737 016402 000004 MOV #5$, a#ERRVEC :3SET FOR TIMEOUT | 
016370 005737 177060 TST a#177060 :TIME OUT ON 
016374 012637 000004 MOV (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
016400 000463 BR $SVLAD ::G0 TO THE NEXT TEST 
016402 022606 5$: CMP (SP)+,(SP)+ >:CLEAR THE STACK AFTER A TIME OUT 
016404 012637 000004 MOV (SP)+,a#ERRVEC ;;:RESTORE THE ERROR VECTOR 


_—— — —— —- —- —_— _ — - - -- _-- _ —— 


| Ses He 


CZ7DUa-CO MACY11 30A(1052) 09-SEP-80 10:57 PAGE 74 

CZDUQC.M11 20-AUG-80 09:19 SCOPE HANDLER ROUTINE SEQ 0070 
3599 016410 000423 BR 7$ LOOP ON THE PRESENT TEST 
3600 016412 6$:;M#MAREND OF CODE FOR THE KOR’ tESTEREAMNA 
3601 016412 032777 000400 163020 BIT #BI1T08,aSwR ::LOOP ON SPEC. TEST? 
3602 016420 001404 BEQ sBR IF NO 
3603 016422 127767 163012 162752 CMPB aSwR,STSTNM ‘:0N THE RIGHT TEST? SWR<7:0> 
3604 016430 001465 BEQ SOVER ::BR IF Y 
3605 016432 105767 162745 2$: TSTB SERFLG ::HAS AN ERROR OCCURRED? 
3606 016436 001421 BEQ 4 ::BR IF NO 
3607 016440 126767 162751 162735 CMPB SERMAX,SERFLG ;:;:MAX. ERRORS FOR THIS TEST OCCURRED? 
3608 016446 101015 BHI 3$ :;BR IF NO 
3609 016450 032777 001000 162762 BIT #B1709,aSwR :;LOOP ON ERROR? 
3610 016456 001404 BEQ 4$ :;BR IF NO 
3611 016460 016767 162724 162720 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
3612 016466 000446 BR SOVER 
3613 016470 105067 162707 4$: CLRB SERFLG ::ZERO THE ERROR FLAG 
3614 016474 005067 163012 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3615 016500 000415 BR 1$ sitscee TO THE NEXT TEST 
3616 016502 032777 004000 162730 38: BIT #BIT11,aSWR ; INHIBIT ITERATIONS? 
3617 016510 001011 BNE R IF YES 
3618 016512 005767 163016 TST SPASS irIF FIRST PASS OF PROGRAM 
3619 016516 001406 BEQ 1$ INHIBIT ITERATIONS 
3620 016520 005267 162660 INC SICNT INCREMENT ITERATION COUN 
3621 016524 026767 162762 162652 CMP STIMES ,SICNT sCHECK THE NUMBER OF t SERATIONS MADE 
3622 016532 002024 BGE SOVER ::BR IF MORE ITERATION REQUIRED 
3623 016534 012767 000001 162642 1$: MOV #1, $ICNT : :REINITIALIZE THE ITERATION COUNTER 
3624 016542 016767 000056 162742 MOV SMXCNT, STIMES sSET NUMBER OF ITERATIONS TO DO 
3625 016550 105267 162626 $SVLAD: INCB STSTN 3 COUNT TEST NUMBERS 
3626 016554 116767 162622 162750 MOVB STS INA, STESTN :SET TEST NUMBER IN APT MAILBOX 
3627 016562 011667 162620 MOV (SP), $LP SAVE SCOPE LOOP ADDRESS 
3628 016566 011667 162616 MOV (SP), St PERR :;SAVE ERROR LOOP ADDRESS 
3629 016572 005067 162716 CLR SESCAPE ::CLEAR THE ESCAPE FROM ERROR ADDRESS 

016576 112767 000001 162611 MOVB #1, SERMAX *:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
1 016604 016777 162572 162630 SOVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 

3632 016612 016716 162570 MOV SLPADR, (SP) > :FUDGE RETURN ADDRESS 
3633 016616 000002 4$: RTI 
3634 016620 001407 BRW: 1407 
3635 016622 000432 432 
3636 016624 000005 Saxe : 5 ::MAX. NUMBER OF ITERATIONS 
3637 ATTL. TRAP DECODER 
3639 3 FRRReeAAReeeeeeeeeeeeeeeereteeeeeeeaeeeeKA aeeeeeeeeeKeeeereeeees 
3640 S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
3641 [AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3642 [*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
64 :#GO0 TO THAT ROUTINE. 
3645 016626 010046 STRAP: MOV RO,-(SP) sSAVE RO 
3646 016630 016600 000002 MOV 2(SP),RO SIGET TRAP ADDRESS 
3647 016634 005740 TST =(RO) :;BACKUP BY 2 
3648 016636 111000 MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP 
3649 016640 006300 ASL RO :POSITION FOR INDEXING 
3650 016642 016000 016662 MOV STRPAD(RO),RO 3: INDEX TO TABLE 
403! 016646 000200 RTS RO ::G0 TO ROUTINE 
3655 4 eo 
3654 :; THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


ya-C0 MACY11 30A(1052) 09-SEP-80 10:57 PAGE 75 
vac. M11 20-AUG-80 09:19 TRAP DECODER SEQ 0071 
5 
016650 011646 STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
3657 016652 016666 000004 000002 MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 
016660 000002 RTI SSRESTORE THE PSW 
60 .SBTTL TRAP TABLE 
3662 :*THIS TABLE CONTAINS THE sg TARTING ADDRESSES OF THE ROUTINES CALLED 
3663 :*BY THE ‘‘TRAP’’ INSTRUCTI 
65 FH ROUTINE 
3666 ;  eeeeeee 
3667 016662 016650 STRPAD: .WORD STRAP2 
3668 016664 013042 $TYPE 3; CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3669 016666 014560 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3670 016670 014534 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3671 016672 014574 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3674 016674 013020 .SCOP1 ;;CALL=SCOP1 TRAP#5(104405) 
3675 016676 013324 ~INSTR ;;CALL=INSTR TRAP+6(104406) 
3676 016700 013432 MINSTER ::CALL=INSTER TRAP+7(104407) 
3677 016702 013442 "PARAM ::CALL=PARAM ‘ TRAP#10(104410) 
3678 016704 013642 "SAVOS ::CALL=SAVOS5  —«s TRAP#11(104411) 
3679 016706 013702 *RESOS ::CALL=RESOS = TRAP#12( 104412) 
3680 016710 013734 ~CONVRT ;;CALL=CONVRT TRAP+13(104413) 
3681 016712 014112 "SETFLG ::CALL=SETFLG TRAP+14(104414) 
3682 PRRAAARAAEE AREA EAEAARATA TATA AAA KAREAKRARKKEKAAEKAAK HAA 
3683 SUTILITIES 
3684 FRR EAAREREAAEAA AAA AE AE AAAARAREAAAAAARERAARKR ARES ‘eenete 
3686 sTHIS ad > "tah CALCULATES PRIORITY LEVEL 
016714 006367 000044 DUL EV ASL DUPRT sSHIFT LEFT 
016720 006367 000040 ASL DUPRT : 
016724 000034 ASL DUPRT : 
016730 006367 000030 ASL DUPRT : 
016734 006367 000024 ASL DUPRT : 
016740 016767 000020 000020 MOV DUPRT,LESS1 :MOVE THIS TO LESS1 
016746 162767 000001 000012 SUB #1,LESS1 [CREATE LESS! 
016754 042767 000037 000004 BIC #37, LESS1 [CLEAR TNZVC 
3695 016762 000207 RTS PC 
96 016764 000240 DUPRT: PR5 
3697 016766 000200 LESS1: PR4 sLEVEL TO ALLOW INTERRUPTS 
;NEW DU ADDRESSES 
016770 016767 000126 162714 DUADDR: MOV DUBASE,RXCSR  —-: XXXO 
016776 005267 000120 INC DUBA 
017002 016767 000114 162704 MOV DUBASE ,HRXCSR XXX 
017010 005267 000106 INC DUBASE 
017014 016767 000102 162674 MOV DUBASE ,RXDBUF — ; XXX2 
3705 017022 016767 000074 162672 MOV DUBASE.PARCSR  :XXX2 
017030 005267 000066 INC DUBASE 
017034 016767 000062 162656 MOV DUBASE ,HRXDBUF ; XXX3 
017042 016767 000054 162654 MOV DUBASE.HPARCSR :XXX3 
017050 005267 000046 INC DUBASE 
017054 016767 000042 162644 MOV DUBASE,TXCSR ——_: XXX 


CZDUQ-CO MACY11 30A(1052) 
CZDUQC .M11 20-AUG-80 09:19 
3711 017062 005267 000034 
3712 017066 016767 000030 
3713 017074 005267 600022 
3714 017100 016767 000016 
3715 017106 005267 000010 
3716 017112 016767 000004 
3717 017120 000207 

3718 017122 000000 

3719 

3720 

3721 

3722 

3723 017124 042777 040000 
3724 017132 005067 162344 
3725 917136 006067 162336 
3726 017142 006067 162334 
3727 017146 006267 162330 
3728 017152 042767 100000 
3729 017160 056777 162316 
3730 017166 042777 020000 
3731 017174 052777 020000 
3732 017202 005367 161714 
3733 017206 001346 

3734 017210 000207 

3735 

3736 

3737 017212 016767 162262 
3738 017220 803067 162260 
3739 017224 012727 000010 
3740 017230 000000 

3741 017232 006067 162244 
3742 017236 005567 162242 
3743 017242 005367 177762 
3744 017246 001371 

3745 017250 006067 162230 
3746 017254 103404 

3747 017256 052767 000400 
3748 017264 

hk 017266 042767 000400 
3751 017274 000207 

3752 

3753 

3754 017276 016767 162176 
3755 017304 005067 162174 
3756 017310 012727 000010 
3757 017314 00 

3758 017316 006067 162160 
3759 017322 005567 162156 
3760 Ba ags 005367 177762 
3761 017332 001371 

3762 017334 006067 162144 
3763 017340 103004 

3764 017342 052767 000400 
3765 017350 000403 

3766 017352 042767 000400 


| 


09-SEP-80 
TRAP 


162634 
162624 
162614 


162574 


162262 


162214 
162204 


162176 


162130 
162120 


DUBASE : 


RPOKE: 


ODDB: 


2$: 
3$: 


;THIS ROUTINE CALCULATES EVEN PARITY FOR a 8 BIT CHARACTER 
EVENS: MOV $TM 


4$: 
1$: 


23: 


10:57 PAGE 76 
TABL 


E 
INC DUBASE 
MOV DUBASE,HTXCSR  ;XXX5 
INC DUBASE 
MOV DUBASE,TXDBUF  ;XXX6 
INC DUBASE 
2 XXK7 


MOV > itreataaspestens 


THIS UTILITY POKES THE MAINT Tmt THE 


; INFORMATION CONTAINED IN $TMP1 A 
:SHIFTED IN BY THE CONTENTS OF SHIFT 


BIC #MTDATA,@TXCSR 
C STMP2 


ROR STMP1 ;FORCE C 
ROR $TMP2 ©; PICK uP 


CARRY 1" BIT 15 


ASR STMP2 iSHIFT INTO BIT 


BIC #B1T15,$TMP 

BIS $TMP2,aTXCSR 

BIC CLK, ATXCSR 

BIS #CLK ,aTXCSR 3 
SHIFT 


BNE RPOKE 
RTS PC 

OV ’ 
CLR STMPS 
_ #8. ,(PC)+ 
ROR STMP2 
ADC STMPS 
DEC 4$ 
BNE 1$ 
ROR STMP3 
BCS 


BIS #B1T8,S$TMP1 
3$ 


C #B1T8,STMP1 
"gait ~ HAS ODD PARITY 


P1,SiMP2 
CLR TMPS 
i: 1B. (PC)s 
ROR STMP2 
ADC STMPS 
DEC 4$ 
BNE 1$ 
ROR STMP3 
BCC 


BIS #B1T8, STAMP 
BIC #B1T8,STMP1 


sCLR BIT 15 
;POKE MAINT DATA 


;POKE CLK 


; THIS ROUTINE CALCULATES ODD gcike FOR AN 8 BIT CHAR 
M STMP1,STMP2 


;SAVE TEMP 


:SET ODD PARITY 


CLR EVEN PARITY 
CHARACTER 


;SAVE TEMP 


SET EVEN PARITY 
:CLR ODD PARITY 


SEQ 0072 


.--——_ ------——— _ 


CZDUQ-CO MACY11 30A(1052) 09-SEP-80 10:57 PAGE 77 
TRAP TABLE 


'CZ0UQC M11 20-AUG-80 09:19 SEQ 0073 
3768 017360 000207 3$: RTS 
3769 017362 062716 000002 TRPREG: ADD #2,(SP) ;ALLOW IT TO ‘’CRUNCH’’ INTO ERROR BACK 
3770 ; IN MAIN PART OF THE PROGRAM 
3771 017366 000002 RTI 
3772 000001 END 


| 
3767 ;STMP1 w+ HAS EVEN PARITY CHARACTER 


: 
'CZDUQ-CO 
CZDUQC M11 


BAS 003200 


2 
BASEAD 001154 


MACY11 30A(1 
20-AUG-80 09:1 


947 
8014 





052) 
9 


J 6 


09-SEP-80 10:57 PAGE 79 
CROSS REFERENCE TABLE == USER SYMBOLS 
988 
990 
991 
62 


9 
Vee3* 1334* 1335* 1342* 2883 2886 2896 


3013 

6044 3006 3260 
1239 

sty 3008 


987 
1302" 1339* 1340 1346* 1348* 2890" 2902¢ 


2906 


SEQ 0074 


- - 


Czdua-CO MACY11 30A(1052) 09-SEP-80 10:57 PAGE 80 

CZDUQC M11 20-AUG-80 09:19 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0075 

BASEIV 001162 8044 IaI¢s 2891" 2903* 2908 2909* 2910 2911* 2912 2913" 2914 2915¢ 

BBB 0030 1319 13234 

BINWRD 014110 3179* 3181 32118 

BiTw = 002000 8734 10664 1928 1935 1947 1954 1964 1979 1983 1990 

BITO = 000001 7368 849 880 1042 1073 1915 

B1T0O = 000001 7268 736 

B1T01 = 000002 7254 735 

BITO2 = 000004 7244 734 

BITOS = 000010 7234 733 

BIT04 = 000020 7228 732 

BITOS = 000040 7214 731 

B1T06 = 000100 7204 730 

B1T07 = 000200 7194 729 

BITO8 = 000400 7184 728 3601 

BITO9 = 001000 7174 727 3270 3609 

BIT1 = 000002 7354 848 1041 

BIT10 = 002000 7164 839 1032 1066 3248 

BIT11 = 004000 7154 838 1031 1782 1783 1786 1787 1791 1793 3616 

BIT12 = 010000 7144 837 854 1030 1047 1804 1805 1808 1809 1813 1815 

BIT13 = 020000 7138 836 853 872 1029 1046 1065 3255 

BIT14 = 040000 7128 835 852 871 1028 1045 1064 3580 3587 

BIT15 = 100000 7114 834 851 870 1027 1044 1063 3728 

BIT2 = 000004 7348 847 1040 

BITS = 000010 7334 846 879 1039 1072 

BIT4 = 000020 7328 845 1038 1071 

BITS = 000040 7314 844 877 1037 1070 1926 

BIT6 = 000100 7304 843 876 1036 1069 

BIT? = 000200 7294 842 875 1035 1068 

BITS = 000400 7284 841 857 874 1034 1050 1067 3747 3749 3764 3766 

1T9 = 001000 7278 840 856 1033 1049 

BPTVEC= 000014 7438 

BREAK = 000001 8804 10734 1680 1681 1684 1685 1689 1691 1945 1960 1977 1989 2422 
2449 2558 2631 2704 2772 2827 

BRW 016620 36344 

BRX 016622 36354 

CARDET= 010000 8374 10304 

ccc 012576 2882 2905 29228 

CHRCNT 0141 3177* 3182 3195* 3209 3210 

CKSWR 01267 2876 2939 29464 2978 3575 

CLK = 020000 8728 10654 1824 1825 1828 1829 1833 1835 2422 2449 2485 2492 2493 
2495 2496 2558 2565 2566 2568 2569 2631 2638 2639 2641 2642 2704 
2711 2712 2714 2715 2772 2778 2779 2781 2782 2827 2833 2834 2836 
2837 3730 3731 

CNTLU 012746 1269 29578 

CONVRT= 104413 2879 2959 3441 36804 

COUNT 1124 7814@ «2497 §=2501* 2570 2574 2643 = =2647* 892716" = 27208 

CR = 15 6514 3052 3062 

CRLF = 000200 6524 3023 3062 

CTS = 020000 8364 10298 

DDISP = 177570 6584 914 1227 

DEVADR 013636 3096* 3134 31424 

DEVICE 015302 2880 34728 

OF 1 002132 1098 1102 1106 1110 11564 

DH1 002067 1096 1100 1104 11454 

DISPLA 001442 9148 gece 1235* 1260" 3247* 3631+ 

DISPRE 000174 755@ 81235 1260 
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DNA = 100000 8708 10634 2045 
DNAINT= 000040 8778 10708 1740 1741 1744 1745 1749 1751 
Dd = 100000 8344 10274 2024 
DSINTE= 000040 8444 10374 1620 1621 1624 1625 1629 1631 
DS = 001000 8404 10334 
DSWR = 177570 6574 913 1226 
DTR = 000002 8484 10418 1504 1505 1508 1509 1513 1519 1523 2194 2263 2348 2394 
oT1 002116 1097 1101 1105 11514 
DT4 002126 1109 11544 
DUADDR 016770 1301 2907 37004 
DUBASE 017122 1297 1300 2906* 3700 3701* 3702 3703* 3704 3705 3706* 3707 3708 3709 
3710 3711* 3712 3713* 3714 3715* 3716 37184 
DULEV 016714 1359 36874 
DUPRT 016764 1358* 3687*  3688* 3689"  3690*  3691* 3692 36964 
DURIS 001740 11254 2910+ 
DURIV 001736 11244 1308 1311 1312 2908* 2915 
DUTIS 001744 1127# = 2914" 
DUTIV 001742 11264 2912* 
EIGHT = 006000 8654 10584 2425 2452 2707 
EMTVEC= 000030 746H = =61211* = 1212* 
EMI 1762 1095 11314 
EM2 2022 1099 11374 
EMS 002043 1103 11404 
EMG 001746 1107 11294 
ERRCNT 001114 7748 
ERRVEC= 739# = 1224 1225* 1236* 3592 3593* 3595* 3598% 
VENS 017276 37548 
EVEPAR= 001400 8684 10614 
EVPAR = 0004 8574 10504 
FIVE = 000000 8624 10554 2488 2775 2830 
FRMERR= 020000 8534 10464 2079 
S = tteees 3668 3669 3670 3671 3674 3075 3676 3677 3678 3679 3680 3681 
HDXEN = 000010 879# 10724 1700 1701 1704 1705 1709 1711 
HILIM 013634 3095* 3125 31414 
HLDO 001130 7834 = 861151 3278+ 
HLD1 001132 7844 = =1151 3279* 
HLD2 =: 001134 7854 3280* 
HLDS =—-_-« 001136 7864 3281* 
HLD4 001140 7874 = =3282* 
HLDS 001142 7884 3283 
HiD6 001144 7894 3284+ 
HOLD 001120 779# =61431* = =—1561 1885 2136 2199 2220 2245 2268 2283 2298 2322 2337 
2353. 42369 «23.84 2399 
HPARCS 001724 11184 1456" 3708 
HRXCSR 001714 1114# =61425* 861915" 3702 
HRXDBU 001720 1116#@ =61441# 3707* 
T = 000011 6494 3021 3062 
HTXCSR 001730 1120@ 1471" 1926" 3712* 
DBU 001734 1122# §«1486* $739* 
F 016124 1367 1371 071 3101 3219 3223 35504 
i a eo 
= 
INSTR = 104406 1292 1303 1335 1324 1349 1365 1378 1382 1386 1390 1401 2961 367Sa 
INSTR2 013440 3068 =3080 «30894 
IOTVEC= 744# 1209* 12108 
ISYMOD= 8618 10548 2445 2452, 2768 «= 2775S 2823 2830 
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JMRBY 001153 7978 eres 1393 1975 2183 
KEEPAD 001156 8024 1300* 130 1346 1348 2902 
KEEPIV 001164 8054 1311" 290 
LASTAD 001160 8034 1329 1340 1354 
LESS1 016766 3692* 3693"  3694* 36978 
F = 000012 6504 3056 3062 
LIGHTS 001102 7648 tt 
LIMITS 013566 3111 1254 
LOBITS 013640 3097* 3129 31434 3144 
LOCK 001110 7728 =—2981 
LOKFLG 001174 8164 
LOLI 013632 3094* 3127 31404 
MASK1 007324 22514 
MASK2 007342 22578 
MASKS 007432 22898 
MCNTG 016070 2956 35404 
4 015314 2885 34744 
MCRLF 015414 3173 34854 
A 016230 3193 204 35544 
MEPASS 015463 2878 34934 
= 010000 8844 10774 1977 1989 
MEXTJ 016030 1391 35344 
INT = 004000 8834 10764 1945 1960 2422 2449 2485 
MLASTD 015250 525 3467# 
MLOCK 015527 35004 
EW 016111 961 35444 
MMSWR 016100 2958 35424 
T 015221 1314 4634 
MPFAIL 015417 R464 4864 
MQM 015410 3087 34844 
MR 015510 1412 34978 
MRANGE 015344 1350 34784 
MREGAD 015171 1293 34584 
MRESET= 000400 8748 10678 1514 1543 1581 1610 1630 
1770 1792 1814 1834 1854 1896 1897 
2001 2012 2023 2034 204 2055 2067 
2178 2417 2419 2444 2446 2480 2482 
2767 2769 2822 2824 
MSYNC 015562 1366 35054 
MTDATA= 040000 8718 10644 1844 1845 1848 1849 1853 
1987 2422 244 2485 2558 2631 2704 
MTITLE 015122 1272 34514 
MTSTPC 015514 1402 34984 
MULTD 001152 796# 1316 1317 2881 
MVECTO Byayee 1304 34564 
MWIRES 015751 1387 35268 
MWIRES 015701 1383 35194 
MWIRE6 015630 1379 35120 
NEXT 001106 7714 sy 
NOPAR = 000000 8664 10594 2425 2452 2488 2561 2634 
ODDPAR= 001000 444 10604 
0008 Arels 37378 
cE 261 "en Ht 
OPTCLR 001151 95¢@ 1389 1517 1546 1584 1870 1911 
T 013000 2947 2949 2951 2955 29678 
OUTCRY 012570 2879 29184 


2558 


2707 


2114 





2631 


2775 


2704 


2830 


2772 


2827 


SEQ 0077 
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OUTMUL 003166 1322 1347 13584 . 
T1 007774 $335 g 14 2363 24094 
OUT 007520 23 178 
OUT 007650 2239 23648 
OVRRUN= 040000 8524 10454 2090 
PARAM = 104410 1294 1305 1326 1351 1403 2962 36778 
PARAM] 013472 31004 3121 
PARCSR 001722 11174 1453% 2618 2425 2445 2452¢ 2481 2488 2554% 25618 2627* 2634 2700* 
2707* 2768% 2775% 2823* 2830* 3705* 
PAREN = 001000 8564 10494 
PARER = 010000 8544 10474 2068 
PARERR 013546 3103 3105 3107 31164 3126 3128 3130 
PARTI 01363 3119 31394 
PASCNT 001112 773@ = =61247* =§=2926* 2927 2928 
PFTAB 015114 3442 34484 
PIRQ = 177772 6564 
PIRQVE= 000240 7504 
= 0126 8294 10224 
POP1SP= 005726 8274 10204 
POP2SP= 022626 8314 10244 
= 000000 6734 
PR1 = 000040 6744 
PR2 = 000100 6754 
PR3 = = 000140 6764 
PR4 = 000200 6774 3697 
PRS = 000240 6784 3696 
PR6 = 000300 6794 
PR7 = 000340 6804 1421 1437 1452 1467 1482 
PS = 177776 6534 654 
WwW = 177776 6544 
PUSHRO= 010046 8284 10214 
PUSH1S= 005746 82 10194 
PUSHZS= 024646 8304 10234 
PWRVEC= 000024 745@ 8 1215% 1216* 
RDSW 013006 2957 2967 29694 3118 
RECACT= 004000 83 10314 2013 2426 2430 2434 2453 2457 2461 2509 2518 2522 2582 
2591 2595 2655 2664 2668 2728 2737 2741 
REPLAY 012474 2898 2904 29064 
RESTAR 015020 3422 34284 
RESTRT 012654 2899 2930 29378 
RESVEC= 000010 
RESOS = 104412 36794 
RETURN 001104 1252* 1409* 1411 1413 3447 
RING = 040000 8354 10284 
RINTEN= 000100 8434 10364 1640 1641 1644 1645 1649 1651 
001170 8094 1321% 1333" 1335 1337" 1342 1345" 2893" 2896 2900* 
RPOKE 017124 $300 <oie, $303 2587 2646 2660 2719 2733 2787 2799 2803 2842 2854 
RTS = 000004 8474 10408 1533 1534 1537 1538 1542 1548 1552 2215 2278 2332 2379 
RUNA = 000000 54 143 516 
RUNB = teeter 21 59 146 521 
RUNC = teeter 21 59 146 521 
RUND = teeeee UJ 21 59 146 521 
RUNE = eeeeee 21 59 146 521 
RUNF = teeeee 21 59 146 521 
RUNIT 012400 2884 28904 2897 
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RXCSR_ 001712 1113# = =1422* 8 1504* 1505 1508* 1509 1513* 1519 1523 1533* 1534 1537* 1538 
1542* 1548 1552 1571* 1572 1575* 1576 1580* 1586 1590 1600* 1601 1604* 
1605 1609* 1611 1620* 1621 1624* 1625 1629* 1631 1640* 1641 1644* 1645 
1649* 1651 1660* 1661 1664* 1665 1669* 1671 1864* 1868 1913* 1914 1916 
1920* 1921 2002 2013 2024 $318" 2112 $i 2177* 2188 2189 2194* 2204 
2209 2215* 2225 2230 2240+ 250 2256 263* 2273 2278* 2288 2293* 2303 
2308 2317 $76 2332* 2342 2348* 2358 2364* 2374 2379* 2389 2394* 2404 
2426 2429 2430 2433* 2434 2453 2456* 2457 2460* 2461 2490* 2506 2509 
2515 2518 2521* 2522 2525 2533 2563* 2579 2582 2588 2591 2594* 2595 
2598 2606 2636* 2652 2655 2661 2664 2667* 2668 2671 2679 2709* 2725 
2728 2734 2737 2740* 2741 2744 2752 2776* 2788 2831* 2843 2920 3700* 

RXDBUF 001716 1115# 1438* 2056 2058 2068 2079 2090 2101 2163 2164 2489 2529 2562 
2602 2635 2675 2708 2748 2783 2791 2806 2838 2846 2861 3704* 

RXDONE= 000200 842# 10354 2002 

RXERR = 100000 8514 10444 2101 

SAVIT 014342 3257 32788 

SAVPC =001126 7824 = 3148* 

SAVSP 001116 775#@ = =—3421* = 35.428 

SAVOS = 104411 36784 

SCOP1 = 104405 36744 

SEND = 000020 8784 10718 1720 1721 1724 1725 1729 1731 

SEREC 1150 7948 = 1385 2238 

SETFLG= 104414 1315 1380 1384 1388 1392 36814 

SEVEN = 004000 8644 10574 2634 

SEXMIT 001147 7934 = =61381 2236 : 

SHIFT 001122 780# 24698* 2512% 2571% 2585* 2644% 2658* 2717* 2731% 2785* 2797* 2801* 2840+ 
2852* 2856* 3732+ 

Ix = 002000 8634 10564 $36! 

SPACNT= 014107 3178* = §=3197 200* 32104 

SRD = 002000 8394 10324 

STACK = 001100 6444 1207 1243 1397 3437 

STD = 10 84 1039# 1571 1572 1575 1576 1580 1586 1590 2240 2293 2317 2364 

STFLO 1173 8154 1246 

STKLMT= 177774 6554 

STPSYN= 000400 8414 10344 1660 1661 1664 1665 1669 1671 

$v05 013650 31528 

SWR 001440 9134 1205 1226* 1228 1234* 1241* 1257 1259* 1264 1280 1399 2948 2979 
3248 3255 3267 3270 3580 3587 3601 3603 3609 3616 

SWREG 000176 7564 2 1259 1264 2948 2965 2972 

SWREGL 013010 2960 29704 

swO. = 1 7084 

swoO = 900001 6984 708 1280 

sw01 = 000002 6974 707 1399 

Sw02 = 000004 6964 706 

sw0O3 = 000010 6954 705 

sw04 = 000020 6948 704 

$sw0OS = 000040 6934 703 

$w06 = 000100 6924 702 

sw07 = 000200 6914 701 

Sw08 = 000400 6904 700 

sw09 = 001000 6894 699 2979 

Swi = 000002 7074 

$w10 = 002000 6884 

Sw11 = 004000 6874 

SWw12 = 010000 6864 

sw13 = 020000 6854 
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swi4 = 040000 6844 
$wi5 = 100000 6834 
SWw2 = 000004 7064 
Ssw3 = 000010 7054 
SWw4 = = - 000020 7044 
SWS = = 000040 7034 
SWw6 == 000100 7024 
sw? == 000200 7014 
sw8 == 000400 7004 
= 001000 6998 
SYNCNO 001146 792H = 1369* = 1373* 2577 2650 2723 
SYNEXT= 020000 8604 10534 2418 2425 
SYNINT= 030000 8594 10524 2481 2488 2554 2561 2627 2634 2700 2707 
SYNSCH= 000020 8454 10384 1600 1601 1604 1605 1609 1611 2429 2433 2456 2460 2490 
2521 2563 2594 2667 2709 2740 2776 2831 
SYSTST= 014000 8854 10784 


TEMP 016166 3183 3438* 3439* 35524 
TKVEC = 000060 7484 

TPVEC = 000064 7494 
TRAPVE= 000034 747# = = 1213* = 12148 
TRPREG 017362 1420 1436 1451 1466 1481 37694 
TRIVEC= 000014 7428 

$T1 003374 1404 1411 14194 2938 3577 
TST10 004054 15324 
TST11 004200 15704 
TST12 31 15994 
TST13 4 16194 
TST14 004474 16394 
TST15 ©0045 16594 
TST16 004654 16794 
TST17 = 004744 16994 
TST2 003454 14354 
TST20 0050 17198 
TST21 005124 17398 
TST22 005214 17598 
TST23 ©0053 17814 
TST24 005374 18034 

TST25 005464 18234 
TST26 005554 18434 
TST27? 005644 18634 

TST3 003526 14504 

TST30 005746 18954 

TST31 00601 19094 

TST32 006162 19448 

TST33 006300 19724 

TST34 006404 20004 

TST35 006426 20114 

ST36 006450 20224 

TST37 ©—006472 20334 

TST4 003600 14654 

TST40 006514 20434 

TST41 006536 20544 

TST4 006570 20664 

TST4 006612 20774 

TST44 006634 20884 
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TST45 006656 2099" 

TST46 006700 2109" 

TST47? 007002 21478 

TSTS 003652 1480# 

TST50 007042 21618 

TST51 007074 21768 

TST52 007774 24168 

TST53 010106 24438 

TST54 010220 24798 

TST55 010526 25528 

TST56 «011034 26258 

TST57 011342 26988 

TST6 003724 14958 

TST60 011650 27668 

TST61 012076 28218 

TST? 003740 15034 

TTST 016310 35808 

TXCSR 001726 1119# 14668" 1514% 1543* 1581% 1610* 1630* 1650* 1670 1680* 1681  1684* 1685 
1689" 1690* 1691 1700" 1701 1704* 1705 1709 1710 1711 17208 1721 17248 
1725. 1729® «= 1730® »=«-1731 Ss 1740* «1741 1744* «17452 «1749% =«=«1750® »«=«1751=Ss«1760* ~=—:1761 
1764" 1765 1769* 17708 1771 1782* 1783 1786 1787 1791* 1792* 1793 1804 
1805 1808 1809 1813" 1814* 1815 1824* 1825 1828% 1829 1833 1834* 1835 
1844* 1845 1848 1849 1853* 1854* 1855 1865" 1869 1896" 1897  1900* 1901 
1910* 1925" 1927 1933" 1934 1945" 1947 1950" 1954 1958 1959% 1960* 1964 
1977* 1979 1982* 1983 1987* 1988 1989* 1990  2001* 2012* 2023 2034* 2035 
2044* 2065 2055* 2067* 2078 2089 21008 2111* 2148 2149% 2150 2151 2162 
2178 2417* 2419% —2422e «24444 2446" 2449" 24808 ~«=— 2482" §=—-2485*# «= 249.2% = 2493e = 24958 
2496 2553 2555 2558%  2565* 2566  2568%  2569% 2626  2628%  2631* 2638" 2639 
2641 2642 2699* 2701% 2704e 27118 27128 2714" 2715" 2767* 2769% 2772e «27788 
2779s 2781s 2782* 2822* 2824+ 2827*  2833* 2834" 2836" 2837" 3710* 37238 37298 

® * 

TXDBUF 001732 1121# ©1483" «149637148 

TXDONE= 000200 875# 10684 2035 

TXINTE= 000100 8768 1069# 1760 1761 1764 1765 1769 1771 

TYPE = 104401 1272 1412 2877 2880 2885 2956 2958 3026 3069 308 3172 3203 3250 
3258 «= 3294.=S 3311 3313 3316 = 3318 = 3322) 3329. 3393) 3443 36684 

TYPOC = 104402 3302 © 3326 «= 3669" 

TYPON = 104404 36718 

TYPOS = 104403 36708 

USER = 8824 10754 

VOID = 000001 B49# 10428 

WRDCNT 014104 3176* 3205" 32084 

ZERO —- 012406 28918 

SAPTHD 002136 1178 11848 

SASTAT= eeeeee 584 599 

SATYC 000024 555 5574 

$ATY1 000000 5530 

$ATYS 000006 5544 3011 

SATY4 000016 5564 ©3263 

SAUTOB 001434 9108 

$BASE 001602 9888 

$BDADR 001422 9054 

SBDDAT 001426 9078 

$BELL 001516 939# 3250 3278 

$CDW1 001606 9908 

$CDW2 001610 9918 
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SCHARC 013320 3028*  3038* 3045 3054* 30594 
SCKSWR= teeeee VY 3674 
SCMTAG 001400 8934 1202 1203 1211 1217 1218 
$CM1 = 000006 9258 926 9278 9284 9298 9304 9318 
$CM2 = 000014 9254 9264 9278 9284 9298 9304 9314 
$CM3 = 000006 9234 925 
SCM4 = 000006 9314 932¢ 9334 9344 9354 9368 9374 
SCPUOP 001554 9628 
SCRLF 001523 9414 3027 3062 3258 3278 3294 3313 3318 3322 
$00WO 001612 9928 
$DDW1 001614 9934 
$DDW10 001636 10024 
$DDW11 001640 10034 
SODWI2 001642 10044 
$DDW13 001644 10054 
$D0W14 001646 10064 
$D0W15 001650 10074 
SDDW2 001616 9948 
$0DW3 001620 9954 
$D0W4 001622 9964 
$D0WS 001624 9978 
SDDW6 001626 9984 
$DDW7 001630 9998 
$DDW8 001632 10004 
001634 10014 
SDEVCT 001536 9534 
SDEVMA 001604 9894 
= 000002 5484 
SENDAD 012644 1165 29334 
SENV 001546 562 586 9584 1274 3006 3067 3260 
SENVM 001547 564 959# 1239 3008 3013 
SERFLG 001403 896# = 1248* 2925* 3245* 3278 3445* 3561 3605 3607 3613* 3637 
SERMAX 001415 9024 1219* 3607 3630* 3637 
SERROR 014160 1211 32448 
SERRPC 001416 9034 1151 1154 1250* 2924* 3252* 3253" 3254 3278 3300 3446* 3576* 
SERRTB 001652 10934 3308 
SERRTY 014400 32934 
SERTTL 001412 900# 1249* 3251* 3278 
SESCAP 001514 9384 1218* 3273 3275 3278 3629+ 
SETABL 001546 9574 
SETEND 001652 10104 1190 
SFATAL 0015350 590* 9504 
SFFLG 000244 553* 556* 584 593* 6014 
SFILLC 001456 9214 3031 3062 
SFILLS 001455 920# 3062 
SGDADR 001420 9044 
SGDDAT 001424 90 
SGTSWR= eeeeee YJ 3675 
SHIBTS 002136 11854 
SICNT 001404 897# 3620* 3621 3623* 3636 
SINTAG 001435 9114 
SITEMB 001414 9014 3254* 3262 3278 3297 
F 001524 9424 3062 3278 
FLG § 000243 594% 6004 
SLPADR 001406 8984 1220* $335" 3582* 3611* 3627* 3632 3636 
SLPERR 001410 89948 1221 3611 3628* 3636 
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SMADR1 001560 9754 
SMADR2 001564 9794 
SMADR3 001570 9824 
SMADR4 001574 9854 
SMAIL 001526 9484 1186 1190 1238 3006 3260 3626 
SMAMS1 001556 9694 
SMAMS2 001562 9778 
SMAMS3 001566 9804 
SMAMSG 001572 9834 
SMBADR 002140 11864 
SMFLG 000242 * 560 595 5994 
SMSGAD 001542 570* © 73 9554 
SMSGLG 001544 575* 956# 
SMSGTY 001526 568 576* 588 592* 9494 
SMTYP1 001557 9704 
SMTYP2 001563 9784 
SMTYP3 001567 9814 
SMTYP4 001573 9844 
SMXCNT 016624 3624 36364 
SN —s =: 000000 5484 28698 
SNULL 001454 919# 3033 3062 
SNWTST= 000000 14184 14348 16498 166464 14798 1694 1502 15318 1569 1598# 16184 16384 16584 
16784 16984 1718 17384 17584 17804 1802 18224 18428 1862 18948 19084 19434 
19714 19998 2010 20214 2032# 2042# 20534 2065 2076 2087# 2098# 21084 21468 
21604 21754 26158 26624 24784 25518 26244 26974 27654 28208 
SOCNT 014756 3365* 3394" 34078 
SOMODE 014760 3360e 3364% 3369 3372% 3383* 34098 
SOVER 016604 3585 3s -35 3604 3612 3622 36318 
SPASS 001534 9524 1238* 2928 3618 3637 
SPASTM 002144 11884 
SPWRON 014762 1215 34134 
$ 001522 9404 306 3278 
SROCHR= etetee 3674 
SRDDEC= eeeeee YJ 3674 
SROLIN= eteeee YJ 3674 
SRDOCT= eeeeee YJ 3674 
SREGAD 001460 9234 
SREGO 001462 925#@ 3157* 3162 
SREG1 001464 926# 3156 3163 
$REG2 1466 9274 3155" 3164 
001470 9284 3154 3165 
001472 929H 3153" 3166 
SREGS 001474 930@ 3152" 3167 
A = teteee 3674 
SSAVRE= teeeee YJ 3674 
OPE 016272 1209 35708 
$SETUP= 000017 11914 1208 1209 ~»# 1211 1213. 1215.—'s—«d1217—~—=<«~‘STTBHCi«‘(22D3:2KS 3270 4093277—Ss 3571 
$STUP = 177777 11914 
S$SVLAD 0165 3596 3625¢ 
$SVPC = 0021 11634 1168 
$SwR = 177400 5394 86-937 938 939 1217 1218 1220 1221 1420 1436 1451 1466 1481 
1496 §©6. 1504.Ss«1533~—S—s«2871 1600 1620 1640 1660 1680 1700 1720 1740 @8§=1760 
1782 1804 1824 1844 18646 1896 1910 1945 1973 2001 2012 = 2023s 20034 
2044 2055 2067 2078 2089 100 2110 2148 162 2177 (al? 444 2480 
2553 = 2626S 2699 2767 2822 236 03-3237 238 239 = 3240s 3248 255 = 3267 
3270 3278 3562 563 564 3565 3566 3587 3599 3601 3602 (3605) Ss 3.606 
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3607, 3614 3615 «= 3616) 3628 = 3631 = 3636 
SSWREG 001550 960" 1241 
SSWRMK= 000000 3566. 3567 3603 
STESTN 001532 951" 3626s 
STIMES 001512 937# 1217" 3614" 3621 «= 3624" = 3636 
TKB = 001446 916# 2952 3075 3083 3586 
$TKS 001444 915# 2950 3073 3584 
STMPO § 001476 9318 
$TMP1 001500 932" =2499% =2513* «2572 2586" 2645" 2659* 2718* 2732* 2786 2798 2802" 28418 
2853 2857" 3725" 3737 = 3747* «= 3749" = 3754 3764" = 37668 
$TMP2 001502 933# = 3724e = 3726e = 5727" «= 3728" «= 3729 3737* «= 3741e = 35754% = 37588 
STMPS 001504 934" 3738* 3742e «3745* 3755 3759" + «3762 
$TMP4 001506 9358 
$TMPS 001510 936" 
$TN = 000062 607# 1418 14208 1434 1436 1449. 1451# 1464, 14664 1479, 1681H 14694 14968 
1502 1504# «61531 «= 1533#@ = 1569, 1571# = 1598 1600# §=1618. = 1620# = 1638 1640 = 1658 
16604 1678 1680# 1698 1700# 1718 1720# 1738 1740 1758 1760# 1780 1782" 
1802 1804# 1822 182464 1842 18448 1862 18644 1894 18964 1908 1910# 1943 
1945# 1971 1973# 1999. 2001# 2010 2012# 2021 20234 2032 2034# 2042 20448 
2053 = 2055# =2065. = 2067# = 2076.) 2078# = 2087, «= 2089# §9=— 2098. 2100# §=— 2108 2110# = 2146 
21488 2160 «21624 «2175, 177# = 2415) 2417H hb 44H = 2478 = BOM 2551 25534 
2624 26268 2697 2699 2765 2767 2820 28220 
001452 918# 3051* 3062 3083 
STPFLG 001457 922" 3000 3062 
001450 917# 3049 3062 3081 
STRAP_ 016626 1213, 36454 
$TRAP2 016650 3656" 3667 
$TRP = 000015 30608 56698 ©3670 «56718 36728 3674 3675 36764 36774 36784 36798 36804 36814 
STRPAD 016662 3650, 36674 
STSTM 002142 11874 
STSTNM 001402 site? gle 1406 1409 2923" «= 3e47 3278 «= 3284 = 3561 = «3582 = 3603 = 3625" = 3626 
STYPBN= weeeee 3672 
STYPDS= teense 3672 
$TYPE 013042 581 3000# 3660 3668 
STYPEC 013254 3030 3037 «= 3044, 3049# = 3050 
STYPEX 013322 3055. 3057 30604 
$TYPOC 014560 33634 
STYPON 014574 3362 = 3365# = 3671 
STYPOS 014534 33584 
SUNIT 001540 954 
SUNITM 002146 11898 
SwR 001552 9618 1276 
$VECT1 001576 9868 
$VECT2 001600 9878 
$XTSTR 016354 3578 = 3590 
SOFILL 014757 3359* 3363* 3373 34084 
S40CAT= teeeee YJ 3257 3587 
= 017370 602# —641# «= 7548 57H 7628 17H 818A B92H 943 1149H 116311648 11668 
11684 61174 «= «1175#@ == 1177H == 1179H = 1206 1220, 1227 14231426 14391442 1454 
ae et 1487 = 1497, 1506 = 1510-1520, 1524 = 1535) 1539 1549 
15531563157 1577, 1587 1591-1602, 1606 )=— 1612 1622) 1626 = 1632 1K 
1646 1652 1662 1666 1672 1682 1686 1692 1702 1706 1712 = N?22 1726 
1732, 17421746 s*1752-—Si—s«*d1762s«s1766— 1772S «1784 17881794 = 1806 =: 1810 1816 
1826 «= 1830S «(1836 =S 1846 = 1850 «1856 = 1875) 1879) 1887) 1898 = 1902 1918 1928 
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1931 1937 1948 1955 1965 1980 1984 1991 2003 2014 2025 2036 2046 
2060 2069 2080 2091 210 2120 2127 2138 2154 2167 2184 2192 2201 
2207 2212 2222 2228 223 2247 2254 2260 2270 2276 2285 2291 2300 
2306 2311 2324 2330 2339 2346 2355 2361 2371 2377 2386 2392 2401 
2407 e427 2431 2435 2454 2458 2462 2507 2510 2516 2519 2523 2526 
2531 2534 2580 2583 2589 2592 2596 2599 2604 2607 2653 2656 2662 
2665 2669 2672 2677 2680 2726 2729 2735 2738 2742 2745 2750 2753 
2789 2793 2808 ¢o33 2848 2863 3062 3278 3332 3424 3440 3546@ 55514 
35534 35554 3636 637 
-BEGIN 003310 1268 1279 1282 13978 2940 
-CONVR 013734 31724 3680 
oP 012324 28754 
INSTE 013432 30864 3676 
INSTR 013324 30654 3675 
-INST1 013344 30694 3078 3088 
-MSG 013346 2952* 2953" 2954 3065* 30704 
PARAM 013442 30934 3677 
PFAIL 014762 124 34148 3435 
RESOS 013702 3162a 6 
-SAVOS 013642 31484 3678 
016272 35748 
ScOP1 013020 29784 3674 
SETFL 014112 32184 3229 3681 
START 002152 758 1200# 1252 2889 
SASTA= teeter 554 5 
$x == 002136 1174# = =61179 
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| 






COMMEN a 7514 
ENDCOM a 7514 
ERROR 6458 1424 1427 1440 1443 1455 1458 1470 1473 1485 1488 1498 1507 1511 1521 
1525 1536 1540 1550 1554 1574 1578 1588 1592 1603 1607 1613 1623 1627 1633 
1643 1647 1653 1663 1667 1673 1683 1687 1693 1703 1707 1713 1723 1727 1733 
1743 1747 1753 1763 1767 1773 1785 1789 1795 1807 1811 1817 1827 1831 1837 
1847 1851 1857 1876 1880 1899 1903 1919 1924 1932 1938 1949 1956 1966 1981 
1985 1992 2004 2015 2026 2037 2047 2061 2070 2081 2092 2103 2121 2128 2155 
2168 2193 2208 2213 2229 2234 2255 2261 2277 2292 2307 2312 2331 2347 2362 
2378 2393 2408 2428 2432 2436 2455 2459 2463 2508 2511 2517 2520 2524 2527 
2532 2535 2581 2584 2590 2593 2597 2600 2605 2608 2654 2657 2663 2666 2670 
ty Hy 2681 2727 2730 2736 2739 2743 2746 2751 2754 2790 2794 2809 2845 
ESCAPE la 7518 
GETPRI i 7514 
GETSWR 4 7514 
LT 4 7514 
NEWTST @ 7514 1418 1434 1449 1464 1479 1494 1531 1569 1598 1618 1638 1658 
1678 1698 1718 1738 1758 1780 1802 1822 1842 1862 1894 1908 1943 1971 1999 
2010 2021 2032 2042 2053 2065 2076 2087 2108 2146 2160 2175 2415 2442 
2478 2551 2624 2697 2765 2820 
POP 4 96 597 7518 
PRGEND 6294 2868 
PRGFRT 6084 630 
SH a 557 559 580 7514 
PUSSYF 6264 
REPORT ie 5394 7514 
RSE TUP Hb Goi! 2444 2480 2553 2626 2699 2767 2822 
SCOPE 6464 1419 1435 1450 1465 1480 1495 1503 1532 1570 1599 1619 1639 1659 1679 
1699 1719 1739 1759 1781 1803 1823 1843 1863 1895 1909 1944 1972 2000 2011 
2022 2033 2043 2054 2066 2077 2088 2099 2109 2147 2161 2176 2416 2443 2479 
2552 2625 2698 2766 2821 2875 
C1 5484 3633 
SETPRI 14 7514 
SETTRA 5394 36604 3669 3670 3671 3674 3675 3676 3677 3678 3679 3680 3681 
SETUP 4 514 1200 
SKIP 4 7514 
SLASH i 7514 
SPACE 7514 
STARS 552 7514 88 943 946 1161 1171 1173 1180 1418 1434 1449 1464 1479 
1494 1502 1531 1569 1598 1618 1638 1658 1678 1698 1718 1738 1758 1789 1802 
1822 1842 1862 1894 1908 1943 1971 1999 2010 2021 2032 2042 2053 2065 2076 
2087 2098 2108 2146 2160 2175 2415 2442 2478 2551 2624 2697 2765 2820 2985 
3232 3288 335 3558 3639 


TYPOCT # 7514 3300 3324 
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CZDUQC.M11 20-AUG-80 09:19 CROSS REFERENCE TABLE <= MACRO NAMES SEQ 0087 
SBINAR 6254 
SBUFFE 6078 3547 
SCABLE RY 1557-1881 Ss 2132s 2195. 2216S 2241S 2264 Ss 2279s 2294s 2318 = 2333) 2349 = 2365S 2380 
SCATCH 5428 641 
y 549" 2941 
SCLRVE 5484 1274 
SCONVR 6074 3169 
NA 6234 
SEOP 5498 2868 
SGETFL 548 1313 1378 1382 1386 1390 
SGETPA 5484 1292 1303 1323 1349 1401 
SGETSY 5484 1360 
SHEADE 5394 630 “ 
SINSTR 6074 3062 
$1S0B8 6214 
SMATCH 6184 
RR 612# 1996 2007 2018 2039 2062 2073 2084 2095 
SMRRW 189 1499 1528 41566 ~=61595.Ss(«éd1615)—St'sié«‘263S5)Ssi«*d165S)Ssi«id16750=S—«*d169S)S—i«id1715~=~S*:—é«<‘73S~=S——=«*d7SS~—*1777?_~—s«*:77999 
SMRW 6118 1891 
SMSG 6074 3451 


SRESET 6094 1514 1543 1581 1610 1630 1650 1670 1690 171 1730 1750 1770 1792 1814 
1834 1854 1900 1910 1925 1959 1988 2001 2012 2023 2034 2044 2055 2067 2078 
2089 2100 2111 2149 2162 2178 2417 2419 2444 6 2480 2482 2553 2555 2626 
2628 2699 2701 2767 2769 2822 2824 

SRXACT 6158 2411 2438 

$SCOPE 5484 3556 

$SCOP1 5494 2975 

SSETFL 5484 3212 

SSETVE 5434 751 

SSTART 5484 1192 

SSTRIP 6224 

$SYMBO 5398 819 1012 

SSYNCR 6184 2490 2563 2636 2709 2776 2831 

STRPAR 6244 

STSTNO 54 1418 1434 1449 1464 1479 1494 1531 1569 1598 1618 1638 1658 1678 
1698 1718 1738 1758 1780 1802 1822 1842 1862 1894 1908 1943 1971 1999 2010 
2021 2032 2042 2053 2065 2076 2087 2108 2146 2160 2175 2415 2442 2478 
2551 2624 2697 2765 2820 
9? 1 1432 1447 1462 1477 


927 928 929 930 
933 934 935 936 
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SSNEWT a 75148 1418 1434 1449 1464 1479 1494 1502 
1678 1698 1718 1738 1758 1780 1802 1822 1842 
2010 2021 2032 2042 2053 2065 2076 2087 2098 
247 S229 2624 2697 2765 2820 
SSSET 36604 669 3670 3671 3674 3675 3676 3677 3678 
SSSETM 12384 
SSSKIP 1 7514 
-EQUAT 4 5394 641 
- HEADE # 5398 
-KT11 4 
. SETUP a 539# 81191 
. SWRHI le 
-$ACTI 4 5394 1159 
- SAPTB a 5398 9448 
.SAPTH #4 5394 1169 
- SAPTY 5394 556 
-SASTA # 
-SCATC a 5398 
~SCMTA a 5398 886 
- $DB2D 4 
.$0B20 4 
-$01V #4 
- SEOP 4 5398 
SERRO @ 539# 3230 
SERRT 4 5394 3286 
» SMULT 4 
a 5394 
$RAND lf 
SRDDE \e 
$RDOC fe 
» SREAD 14 
-$R2AZ 4 
- SSAVE #4 
-$SB2D 4 
-$SB20 14 
-$SCOP 4 539# 3556 
-$SIZE 4 
SSUPR 4 
~ STRAP 4 5394 3637 
STYPB 4 
STYPD @ 
STYPE 4 5394 2983 
$TYPO @ 539# 3333 
$40CA 4 
1170 #4 


- ABS. 017370 000 


ERRORS DETECTED: 0 
Syne F Mae Wh hb et : TOC=CZDUQC.SML,CZ2DUQ3/EQ:RUNA,CZ0U04 ,CZDUQC.M11 


RUN-TIME RATIO: 229/119=1.9 
CORE USED: 43K (85 PAGES) 


SEQ 0088 


eset 
CZDUQC M11 


MACY11 30A(1052) 
20-AUG-80 09:19 


S , 
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SEQ 0089 


